Регистрация
elezavetkavtoray
30.09.2020 19:33
Информатика
Есть ответ 👍

информатика

2007
2008
2011
2015
2018
2019

281
421
Посмотреть ответы 1

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

maryclarly
maryclarly
4,4(87 оценок)
{l-левая половинка числа, r - правая} var count,k,m,r,l: longint; begin   count: =0; writeln('введите k');   readln(k);   for l: =1 to k do   begin       r: =0; m: =l;       while m> 0 do       begin           r: =r*10+m mod 10;           m: =m div 10;       end;       if r=l then count: =count+1;   end;   writeln(count); end.

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