Задать вопрос
9 июля, 13:47

Напишите программу в PascalABC: нахождение наибольшего целого делителя целого числа

+2
Ответы (1)
  1. 9 июля, 14:57
    0
    Var n, i, d: integer;

    found: boolean;

    begin

    d:=1;

    found:=false;

    writeln ('Введите целое число больше единицы') ;

    readln (n) ;

    if n mod 2 = 0 then d : = n div 2

    else

    begin

    i: = (n div 2) - 1;

    while (found=false) and (i > 2) do

    begin

    if n mod i = 0 then begin found:=true; d:=i; end;

    i:=i-1;

    end;

    end;

    if d=1 then writeln ('введённое число оказалось простым')

    else writeln ('наибольший целый делитель введённого числа равен ', d) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Напишите программу в PascalABC: нахождение наибольшего целого делителя целого числа ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы