Ответ:
var i, d: integer;
begin
readln(d);
i:=1;
repeat
i:=i + 1;
until d mod i = 0;
if d = i then
writeln(d)
else
writeln(d / i);
end.
От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль и составьте блок-схему. ОПРЕДЕЛИТЕ, что будет выведено в результате работы программы.
Алгоритмический язык:
алг
нач
цел i, d
ввод d
i := 1
нц
i := i + 1
кц при d mod i = 0
если d = i то
вывод d
иначе вывод d, делится на, i
кон — Правильный ответ на вопрос найдете ниже
01.07.2019 · 1