Question

От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. (ответ+ решение 11 строк)

Answer 1

Ответ:

var

s,k :real;

begin

s:=0;

k:=0;

begin

while k<6 do

s:=s+2;

k:=k+1;

end;

writeln(s);

end.