2 Скласти алгоритм на визначення пори року за введенним номером місяця
3 Скласти алгоритм на визначення виду трикутника із заданим сторонами

218

422

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

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

Милки1319

Информатика

4,7(22 оценок)

Самое простое из того, что смог придумать. перебираем числа до половины необходимого (больше нет смысла) (for i : = 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). выводим сообщение. var number, i : integer; begin write('число: '); readln(number); for i : = 2 to number div 2 do if number mod i = 0 then begin writeln('число не является простым, оно делится, как минимум, на ', i); exit; end; writeln('число является простым'); end.