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
for i:=11 to 19 do
s:=s+(i*i);
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.