Question

Написать в паскале пожалуйста

Answer 1

var

s, k: integer;

begin

s := 0;

k := 0;

while k < 6 do

begin

s := s + 2;

k := k + 1;

end;

write (s);

end.

Результат, выведенный на экран:  12