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

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

    Начало цикла

    пока d>=z

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

    конец цикла;

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

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

Ответы 2

  • 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.

    • Автор:

      vega38
    • 5 лет назад
    • 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.

     

    • Автор:

      beartnyo
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years