Вопрос от посетителя:
Дано словесное описание алгоритма:
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.