Ответы на вопрос:
Пишу на языке PascalABC, вроде должно совпадать.
Объяснение:
for var i := 1 to 5 do
writeln('молодец свое имя')
Var a1,b1,a,b: integer; begin readln(a,b); a1: =sqr(a); b1: =sqr(b); if (b1> a1) then write(a1) else write(b1) end.
Популярно: Информатика
-
Alina243jhj24.05.2021 00:50
-
grimm330066Flippoo28.07.2021 03:28
-
lubov922.01.2021 01:09
-
ABI0424.10.2021 08:42
-
iambigboy06.03.2023 23:48
-
Leonid02super20.12.2020 20:17
-
Gutentag103.10.2021 14:29
-
vkjfnjkvd25.11.2020 21:44
-
3743Dasha27.01.2020 10:45
-
nikitalarin84330.04.2021 00:43