Информатика: Технічна реалізація сайту та блога

likeex

07.09.2020 03:36

Информатика

Есть ответ 👍

Технічна реалізація сайту та блога

178

376

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

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

Ангелок1105

Информатика

4,5(71 оценок)

Program chislo; var x, y, a, b : integer; begin for x: =10 to 99 do begin a: =x div 10; {1 цифра} b: =x mod 10; {2 цифра} y: = a*1000+a*100+b*10+b; {вставили между цифрами это же число} if (y div x = 99) and (y mod x = 0) then writeln ('искомое число = ', x) end; end.