Ответы на вопрос:
Var x,a: integer; begin x: =10; while (x< 100) do begin a: =x*x; if (a< 999) then begin if mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then writeln(x); end else begin if mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)then writeln(x); end; x: =x+1; end; end.
Популярно: Информатика
-
goodanonim03.08.2021 20:00
-
anfinogenov9705.10.2020 08:00
-
ева51811.08.2020 15:18
-
Rоmаn84426.12.2021 12:05
-
lybovii18.11.2020 00:45
-
vitalia442027.08.2022 07:40
-
yurijefimow02.04.2020 01:37
-
AdamM210.05.2023 03:52
-
012003mariia23.02.2021 15:52
-
Felua05.03.2022 23:33