найдите самый маленький натуральный делитель числа - вопрос №490767412 от ЯМС 17.09.2021 01:03

Question

Информатика: найдите самый маленький натуральный делитель числа x, отличный от 1 (2 = x = 30000). входные данные вводится натуральное число x. выходные данные выведите наименьший делитель числа x, отличный от 1. примеры входные данные 2 выходные данные

ЯМС · Answer

Var x:integer;begin   readln(x);    for var i:=2 to x do      if (x mod i)=0 then begin        writeln( delitel: ,i);        exit;      end;end....