Дано словесное описание алгоритма: z: =2; d: =7; k=0; начало цикла пока d> =z d: =d – z; k=k+1; конец цикла; вывести результат на экран. составить блок-схему в виде циклического алгоритма. определить количество циклов k. написать
программу на языке паскаль с использованием оператора цикла с предусловием.

alisha15sherban alisha15sherban    3   01.03.2019 09:40    25

Ответы
1672карина2140 1672карина2140  23.05.2020 18:05

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.

 

ПОКАЗАТЬ ОТВЕТЫ
володия володия  23.05.2020 18:05

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика