Question

От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль и составьте блок-схему. ОПРЕДЕЛИТЕ, что будет выведено в результате работы программы.
Алгоритмический язык:

алг
нач
цел i, d
ввод d
i := 1
нц
i := i + 1
кц при d mod i = 0
если d = i то
вывод d
иначе вывод d, делится на, i
кон

Answer 1

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.

Answer 2

Запись на языке PascalABC

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.

В результате работы программы

Будет выведен наименьший делитель числа d кроме единицы

Блок-схема

На картинке ниже