Нужно написать две программы на языке C
1)Найти все совершенные числа до 10000.
2)Известны значения максимальной скорости 15 моделей автомобилей. Определить максимальную скорость автомобиля, являющегося "шестым самым быстрым автомобилем".
199
424
Ответы на вопрос:
Var a: array [1..20] of integer; i, n: integer; k: longint; begin k : = 1; readln(n); for i : = 1 to n do begin a[i] : = random(10); write(a[i], ' '); end; writeln(); for i : = 1 to n do k : = k * a[i]; writeln(k); end.
Популярно: Информатика
-
clicker66619.02.2021 08:17
-
254745618.04.2021 19:13
-
загадка2716.06.2022 03:14
-
Ra21M11.02.2022 15:48
-
msvorobeva12316.04.2023 18:46
-
yaku06nastyaozq1r717.05.2020 07:12
-
нананавай12.01.2020 13:38
-
leha201812.09.2022 17:26
-
laralarisa122.12.2022 08:50
-
АгнияБарто214.05.2021 21:41