1 задача. Вычислить произведение квадратов n первых натуральных чисел. Для любого n введенного с клвитуры. 2 Найти первое чётное натуральное числоЮ куб которого больше числа x, введенного с клавитуры. 3. Даны вещественные числа b1, b2, ... b10. (ввести с клавитуры). Определите среднее арифметическое тех из них, которые кратны числу n, введенному с клавитуры.

Question

Информатика

Марея

19 мая, 05:44

1 задача. Вычислить произведение квадратов n первых натуральных чисел. Для любого n введенного с клвитуры. 2 Найти первое чётное натуральное числоЮ куб которого больше числа x, введенного с клавитуры. 3. Даны вещественные числа b1, b2, ... b10. (ввести с клавитуры). Определите среднее арифметическое тех из них, которые кратны числу n, введенному с клавитуры.

+4

Ответы (2)

Знаете ответ?

Летта · Answer 1

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.

Олдама · Answer 2

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.