Program laba;
var
a: integer;
begin
write ('введите число: ');
readln (a);
While a>0 do
Begin
if a mod 10 mod 2 = 0 then writeln (a mod 10);
a:=a div 10;
end;
end.
Сказали что то не то с integer
Задание: из введенной строки вывести все четные числа.
Что программа делать должна?
Update:
> Задание: из введенной строки вывести все четные числа.
Э.. . типа вводишь любую строку, в ней есть числа, а есть и не числа, вывести только четные числа? Или же таки вводится одно число и выводятся четные цифры числа, потому-что твоя программа делает именно это.
Числа или цифры? Число 123 и цифры 1, 2 и 3.
Если все четные цифры, то в роде все правильно. Можно скобок наставить вокруг
if (a mod 10) mod 2 = 0
Или вообще мод 10 убрать (разницы-то, с чего брать остаток).
⇢