найдите самый маленький натуральный делитель числа - вопрос №490857612 от logan9 15.12.2020 01:47

Question

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

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