Baavem
5 год назад
Pascal...Найти все трехзначные числа-палиндромы.Задание с использованием repeat (обязательно)
ОТВЕТЫ
Richards Thomas
Oct 24, 2020
var i:integer;
begin
i :=100;
repeat
if (i mod 10 = i div 100) then
print(i);
i:=i+1;
until (i>999);
end.
begin
i :=100;
repeat
if (i mod 10 = i div 100) then
print(i);
i:=i+1;
until (i>999);
end.
102
Смежные вопросы:
