Дано словесное описание алгоритма: z:=2; d:=7; k=0; Начало цикла пока d больше =z d:=d – z; k=k+1; конец цикла; Вывести результат на экран. Составить блок-схему в виде циклического алгоритма. Определить количество циклов k. Нап...
Дано словесное описание алгоритма: z:=2; d:=7; k=0; Начало цикла пока d>=z d:=d – z; k=k+1; конец цикла; Вывести результат на экран. Составить блок-схему в виде циклического алгоритма. Определить количество циклов k. Написать программу на языке Паскаль с использованием оператора цикла с предусловием.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы