От программы, записанной ** алгоритмическом языке, перейдите к записи программы ** языке...

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 кроме единицы

Блок-схема

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

---