2) import math
a = int(input())result = 1sqrt = 0
for i in range(a, a+6): result *= i sqrt += 1 result = math.pow(result, 1/sqrt)print ("result :", result)
{ Pascal }
PROGRAM Calendar(INPUT, OUTPUT);
VAR
Num: INTEGER;
BEGIN
WRITE('Введите номер месяца: ');
READ(Num);
CASE Num OF
1: WRITELN('Январь');
2: WRITELN('Февраль');
3: WRITELN('Март');
4: WRITELN('Апрель');
5: WRITELN('Май');
6: WRITELN('Июнь');
7: WRITELN('Июль');
8: WRITELN('Август');
9: WRITELN('Сентябрь');
10: WRITELN('Октябрь');
11: WRITELN('Ноябрь');
12: WRITELN('Декабрь');
END;
END.
F1-3, F2-4, F5-5, F4-1, F3-2?
закрыто окошком
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=ArrRandom(10); println(a);
for var i:=0 to 9 do
if a[i] mod 2 =0 then print(a[i]);
end.
Тестовое решение:
[57,42,71,42,53,88,86,80,87,74]
42 42 88 86 80 74