Регистрация
dinonafrie1488
05.04.2021 08:14
Информатика
Есть ответ 👍

Уй сылау алгоритмі ...​

159
434
Посмотреть ответы 1

Ответы на вопрос:

1505123Diana1505123
1505123Diana1505123
4,4(72 оценок)
Var     n,a,b: longint;     k: integer; begin k: =0; write('n = '); readln(n); for n: = 1 to n do       begin       a: =n;       b: =0;       while a > 0 do             begin             b: =b*10+(a mod 10);             a: =a div 10             end;       if b=n then k: =k+1       end; writeln('искосое количество: ',k) end.

Популярно: Информатика