Задание:
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.
Знаете другой ответ?