Предмет: Информатика,
автор: 288083a
Дано словесное описание алгоритма:
z:=2; d:=7; k=0;
Начало цикла
пока d>=z
d:=d – z; k=k+1;
конец цикла;
Вывести результат на экран.
Составить блок-схему в виде циклического алгоритма. Определить количество циклов k. Написать программу на языке Паскаль с использованием оператора цикла с предусловием.Ответы
Автор ответа:
0
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.
Автор ответа:
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.
Похожие вопросы
Предмет: Математика,
автор: lianamuzafarova09
Предмет: Математика,
автор: wwaisorra
Предмет: ОБЖ,
автор: Аноним
Предмет: Алгебра,
автор: Alena561993