Написать программу. Среди четырехзначных чисел - вопрос №18211014 от kotgemer 27.06.2020 23:54

Question

Информатика: Написать программу. Среди четырехзначных чисел выпишите на экран те, десятичная запись которых является симметричной. Например, числа 1221 или 5005 являются симметричными. Использовать цикл for.

kotgemer · Answer

var a, b, s: integer; begin s := 0; { количество симметричных чисел } for a := 1 to 9 do { тысячи } for b := 0 to 9 do { сотни } inc(s); writeln(s) end....