Решение задач с использованием циклов
задача 1
var d, n:integer,
begin
d:=6;
d:=d-2;
for n:=1 to 4 do
d:=d+n;
writeln (d)
end.
задача 2
var s, k:integer;
begin
s:=0
for 3 to 8 do
s:=s+3*k;
write(s);
end.
задача 3
var s, n;integer,
begin
s:=5;
for n:=2 to 4 do
s:=s+(n-1);
writeln(s);
end.