288083a
Опубликовано 6 лет назад по предмету Информатика от 288083a


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

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

Начало цикла

пока d>=z

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

конец цикла;

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

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

  1. Ответ
    Ответ дан bolela

    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.

  2. Ответ
    Ответ дан ali07

    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.

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц