Вопрос пользователя:
1 задача.Вычислить произведение квадратов n первых натуральных чисел.Для любого n введенного с клвитуры.2 Найти первое чётное натуральное числоЮ куб которого больше числа x,введенного с клавитуры. 3.Даны вещественные числа b1,b2,…… b10.(ввести с клавитуры).Определите среднее арифметическое тех из них,которые кратны числу n, введенному с клавитуры.
Илюха отвечает:
1)var s,i,n,a: integer;
begin
a:=1;
s:=1;
readln(n);
for i:=1 to n do
begin
s:=s*sqr(a);
a:=a+1;
end;
writeln(s);
end.
2)var a,i: integer;
x: real;
begin
a:=0;
readln(x);
repeat
a:=a+2;
if power(a,3)>x then writeln(a);
until power(a,3)>x;
end.