Составить алгоритм и программу для вычисления: p=n*k пока n не будет равно 10
220
456
Ответы на вопрос:
Var a: array [1..7] of real var max: real, i: integer begin for i: =1 to 7 do readln (a[i]); max = a[1]; for i: =2 to 7 do if a[i] > max then max : = a[i]; writeln (max); end.
Популярно: Информатика
-
samal2209.11.2020 12:13
-
viakobchuk22.04.2020 23:00
-
кккк5115.05.2021 01:14
-
gugem09.04.2023 22:02
-
Катерина12233305.07.2021 04:57
-
astakastaj08.08.2020 08:58
-
anyaadamchuk230.06.2021 14:49
-
UILA33602.10.2022 09:32
-
Гюнтер1103.06.2022 18:39
-
guiuhui23.01.2023 18:04