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

Question

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

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.