найдите самый маленький натуральный делитель числа - вопрос №490857612 от Milagrosrr 25.02.2022 11:09

Question

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

Milagrosrr · 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....