Составить программу:

1) вычислить произведение натуральных чисел кратных 5, от 10 до 40

2) вычислить сумму квадратов натуральных чисел от 11 до 19

Question

Информатика

Абадия

20 ноября, 23:15

Составить программу:

1) вычислить произведение натуральных чисел кратных 5, от 10 до 40

2) вычислить сумму квадратов натуральных чисел от 11 до 19

+2

Ответы (1)

Знаете ответ на вопрос?

Нияз · Answer 1

1 ...

Uses crt;

var s, i:integer;

begin

s:=1;

for i:=10 to 40 do

if i mod 5 = 0

then s:=s*i;

writeln (s) ;

end.

2 ...

Uses crt;

var s, i:integer;

begin

for i:=11 to 19 do

s:=s + (i*i) ;

writeln (s) ;

end.

Составить программу:1) вычислить произведение натуральных чисел кратных 5, от 10 до 402) вычислить сумму квадратов натуральных чисел от 11 до 19

Составить программу:

1) вычислить произведение натуральных чисел кратных 5, от 10 до 40

2) вычислить сумму квадратов натуральных чисел от 11 до 19