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.