Написать программу. Среди четырехзначных чисел - вопрос №18211916 от bratan9 26.01.2020 01:19

Question

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

bratan9 · 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....