Programm

Var s, k: integer;

Begin

s:=0;

for k:=3 to 7

do

s:=s+6;

writeln (s) ;

End.

Сделать так, чтобы могло выдавать любое значение на месте k: = и чтобы каждый раз выдавал число, т. е. чтобы показывался ход цикла каждый раз.

Question

Информатика

Игорь

21 апреля, 06:17

Programm

Var s, k: integer;

Begin

s:=0;

for k:=3 to 7

do

s:=s+6;

writeln (s) ;

End.

Сделать так, чтобы могло выдавать любое значение на месте k: = и чтобы каждый раз выдавал число, т. е. чтобы показывался ход цикла каждый раз.

+5

Ответы (1)

Знаете ответ на вопрос?

Альфред · 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.