Question

Дано словесное описание алгоритма:

z:=2; d:=7; k=0;

Начало цикла

пока d>=z

d:=d – z; k=k+1;

конец цикла;

Вывести результат на экран.

Составить блок-схему в виде циклического алгоритма. Определить количество циклов k. Написать программу на языке Паскаль с использованием оператора цикла с предусловием.

Answer 1

program first;

var z,d,k:integer;

begin

writeln('Input z,d,k');

readln(z,d,k);

if (d>=z) then

d:=d-z

k:=k+1

writeln(d,'   ',k);

readln;

end.

Answer 2

program xxx;

   var z,d,k : integer;

begin

  z:=2; d:=7; k:=0;

  while (d>=z) do

    begin

      d:=d-z;

      k:=k+1

    end;

  writeln(d,'   ',k);

  readln

end.