найдите самый маленький натуральный делитель - вопрос №490767412 от Katiadimova3 10.07.2021 11:38

Question

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

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