Напишите на паскале, пожалуйста: Напечатать все трехзначные числа от А до В, у которых первая и третья цифры одинаковые.
Ответы на вопрос
Ответил fikort
0
var
a,b,i:integer;
begin
readln(a,b);
for i:=a to b do
if (i mod 10= i div 100) and (i div 100<>0) then
writeln(i);
end.
a,b,i:integer;
begin
readln(a,b);
for i:=a to b do
if (i mod 10= i div 100) and (i div 100<>0) then
writeln(i);
end.
Новые вопросы