Есть ответ 👍

C++ Даны два действительные числа X, Y ( ). Найти большее из них, если X отрицательное число, и меньшее, если это не так

122
197
Посмотреть ответы 1

Ответы на вопрос:


Запись на языке 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 кроме единицы

блок-схема

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

Популярно: Информатика