Programm Var s,k: integer; Begin s:=0; for k:=3 to 7 do s:=s+6; writeln(s); End. Сделать...

Question

Programm
Var s,k: integer;
Begin
s:=0;
for k:=3 to 7
do
s:=s+6;
writeln(s);
End.
Сделать так, чтобы могло выдавать любое значение на месте k:= и чтобы каждый раз выдавал число, т.е. чтобы показывался ход цикла каждый раз.

Answer 1

Program pr1;
Var s,k,k1,k2: integer;
Begin
write('Задайте начальное и конечное значения параметра цикла: ');
readln (k1,k2);
s:=0;
for k:=k1 to k2 do
begin
s:=s+6;
writeln(s);
end
End.