26 февраля, 11:06

Напишите программу на языке pascal

дано: натуральное число - n

выяснить с помощью цикла repeat является ли оно простым (то есть делится на 1 и на само себя)

+2
Ответы (1)
  1. 26 февраля, 11:44
    0
    Var

    i, n: integer;

    begin

    i : = 1;

    read (n) ;

    repeat

    i : = i + 1;

    if (n mod i = 0) and (n i) or (n = 1) then

    begin

    write ('Число ', n, ' не является простым') ;

    exit;

    end;

    until i = trunc (sqrt (n)) + 1;

    write ('Число ', n, ' является простым') ;

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