Предмет: Информатика, автор: 288083a

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

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

Начало цикла

пока d>=z

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

конец цикла;

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

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

Ответы

Автор ответа: bolela
0

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.

Автор ответа: ali07
0

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.

 

Похожие вопросы
Предмет: Математика, автор: lianamuzafarova09