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

@As Qq · Регистрация: 02.12.2018

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

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

@Puporev · 02.12.2018, 17:56

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var t:TStringList;
    i:integer;
begin
t:=TStringList.Create;
t.DelimitedText:=Edit1.Text;
Label1.Caption:='';
for i:=0 to t.Count-1 do
if t[i][length(t[i])] in ['0','2','4','6','8'] then
Label1.Caption:=Label1.Caption+t[i]+' ';
t.Free;
if Label1.Caption=''then ShowMessage('В строке нет четных чисел');
 
end;

@ZX Spectrum-128 · 02.12.2018, 17:57

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

@As Qq 0 / 0 / 0 Регистрация: 02.12.2018 Сообщений: 2
		1
	Delphi 6-7 Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Вывести четные числа этой строк 02.12.2018, 17:43. Показов 3074. Ответов 2 Метки нет (Все метки) Дана строка символов, состоящая из произвольных десятичных чисел, разделенных пробелами. Вывести четные числа этой строки. 0

@ZX Spectrum-128 6806 / 4565 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	02.12.2018, 17:57	3
	Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки. Дана строка символов, состоящая из произвольных десятичных цифр, разделенных пробелами. Вывести четные числа этой строки. 0

Опции темы

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

Решение