Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами

@vladik0106 · Регистрация: 01.10.2012

Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Выведите четные числа этой строки.

@CodeR · 18.11.2012, 13:19

Pascal

Var s,s1:string;
    n,k:integer;
Begin
    write('Введите произвольные десятичные числа разделённые пробелом: ');
    readln(s);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      Val(s1,n,k);
      if (n mod 2 = 0)and(k=0) then writeln(s1);
    End;
    readln;
End.

@vladik0106 1 / 1 / 0 Регистрация: 01.10.2012 Сообщений: 28
		1
	Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами 18.11.2012, 12:55. Показов 1843. Ответов 1 Метки нет (Все метки) Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Выведите четные числа этой строки. 0

Опции темы

Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами

Решение