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.
Поделитесь своими знаниями, ответьте на вопрос:
1.вычислить произведение квадратов n первых натуральных чисел.для любого n введенного с клвитуры.2 найти первое чётное натуральное числою куб которого больше числа x, введенного с клавитуры. 3.даны вещественныечисла b1, b10ввести с клавитурыопределите среднее арифметическое тех из них, которые кратны числу n, введенному с клавитуры.
pascal:
1) диапазоны не указаны, но для школы обычно хватает типа "integer".
var a, b, i: longint;
begin
write('введите число n=> ');
readln(a);
b: =1;
for i: =1 to a do
b: =b*(i*i);
write('произведение=', b, '.');
readln end.