найдите самый маленький натуральный делитель числа - вопрос №4908242 от MatveiKnyaz2005 03.12.2020 20:48

Question

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

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