Составить программу, которая подсчитывает количество палиндромов среди натуральных четырехзначных чисел. Pascal
Составить программу, которая подсчитывает количество палиндромов среди натуральных четырехзначных чисел. Pascal
Гость
Ответ(ы) на вопрос:
Гостьvar
i, k: integer;
begin
k:=0;
for i:=1000 to 9999 do
if (i div 1000 = i mod 10) and (i div 100 mod 10 = i mod 100 div 10) then
inc(k);
writeln(k);
end.
Не нашли ответ?
Похожие вопросы