Составить программу:
1) вычислить произведение натуральных чисел кратных 5, от 10 до 40
2) вычислить сумму квадратов натуральных чисел от 11 до 19
1) вычислить произведение натуральных чисел кратных 5, от 10 до 40
2) вычислить сумму квадратов натуральных чисел от 11 до 19
More Questions From This User See All
Answers & Comments
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.