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

Question

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

1 задача.Вычислить произведение квадратов n первых натуральных чисел.Для любого n введенного с клвитуры.2 Найти первое чётное натуральное числоЮ куб которого больше числа x,введенного с клавитуры. 3.Даны вещественные числа b1,b2,...... 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.

Accepted Answer

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.