Программирование с использованием строк Delphi

@aidsoul · Регистрация: 07.01.2016

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста!!! Заранее спасибо)
________________________________________________________________________________ _____________
Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки.

@wendstor · 11.01.2016, 00:16

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  Decimal = '6 9 12 15 18 21 24 27 30';
 
var
  tmp: string;
  Number: string;
  int: Integer;
begin
  tmp := Decimal;
  while Pos(' ', tmp) > 0 do begin
    Number := Copy(tmp, 1, Pos(' ', tmp)-1);
    if TryStrToInt(Number, int) then
      if int mod 2 = 0 then Writeln(Number);
    Delete(tmp, 1, Pos(' ', tmp));
  end;
  ReadLn;
end.

@Rasomaha · 11.01.2016, 06:51

wendstor, последнее число не захватит, для этого нужно в конец строки добавить пробел (разделитель)

Pascal

1	If Decimal[Length(Decimal)]<>' ' then tmp:=Decimal+' ' else tmp:=Decimal;

@aidsoul 1 / 1 / 0 Регистрация: 07.01.2016 Сообщений: 14
		1
	Программирование с использованием строк Delphi 10.01.2016, 23:13. Показов 1172. Ответов 2 Метки нет (Все метки) Помогите пожалуйста!!! Заранее спасибо) ________________________________________________________________________________ _____________ Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки. 0

	11.01.2016, 06:51

Опции темы

Программирование с использованием строк Delphi

Решение