составить программу для вычисления суммы квадратов чисел от 1 до 15. Функция возведения в квадрат sqr();
5-9 класс
|
Var , , : ;
Begin
:=0;
For := to do
Begin
;
;
End;
Writeln(' =', );
End.
Там, где пробелы, вставить что нужно
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
End.
2) второе решение
Другие вопросы из категории
в котором все элементы с нечётными номерами заменить на их квадратный корень.
профессии: ткачиха, портниха, швея, повариха. Определите профессию Даши, если известно, что: a) ткачиха живет с краю; b) портниха живет правее швеи; c) повариха живет левее швеи; d) ткачиха живет рядом с поварихой; e) Маша живет через дом от Наташи; f) Глаша не ткачиха и не живет рядом с ткачихой; g) Наташа живет рядом со швеёй; h) Маша живет правее поварихи.
a) C:= sqr(35 div (18mod 5))+ frac (19/2)
d) N:= trunc(sqrt(144))-15 mod 4*5-15 div 4*2+0.5
Читайте также
программы для чисел от 5 до 12
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)