Задать вопрос
21 ноября, 06:37

Напишите программу определения простого числа в Паскале

+4
Ответы (2)
  1. 21 ноября, 07:29
    0
    Var

    i, n, m, s:integer;

    begin

    write ('Введите число: ') ;

    readln (n) ;

    if n mod 2=0 then

    writeln ('Число не является простым')

    else begin

    m:=trunc (sqrt (n)) ;

    i:=3;

    while (n mod i 0) and (i<=m) do i:=i+2;

    if i<=m then writeln ('Число не является простым')

    else writeln ('Число является простым')

    end

    end.
  2. 21 ноября, 09:46
    0
    Program chisla;

    uses crt;

    var i, a, k: integer;

    begin

    clrscr;

    write ('введите число: ') ;

    readln (a) ;

    k:=0;

    for i:=2 to a div 2 do

    if a mod i = 0 then k:=k+1;

    if k=0 then write ('простое')

    else writeln ('не простое') ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Напишите программу определения простого числа в Паскале ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Зачетная работа по информатике. 1. Написать программу вычисления площади прямоугольника (на паскале). 2. Написать программу вычесления ускорения тела (на паскале).
Ответы (1)
Помогите написать программу в паскале! Написать программу в паскале: В одномерном массиве из 10 целых чисел вычислить сумму четных чисел ...
Ответы (1)
1) напишите программу, которая спрашивает целое число n и считает сумму целых чисел, Муму чётных чисел и сумму нечётных от 1 до n 2) напишите программу, которая спрашивает целые числа а и b и выводит на экран квадраты чисел от а до b 3) напишите
Ответы (1)
1. Напишите программу вычисления расстояния между двумя точками плоскости. 2. Напишите программу вычисления площади боковой поверхности куба. 3. Напишите программу вычисления площади и гипотенузы прямого треугольника, если известны его катеты. 4.
Ответы (1)
1) Напишите программу, которая строит "квадрат" из знаков '*' заданного размера. Используйте процедуру. 2) Напишите программу, которая выводит в столбик цифры введённого числа, начиная с последней. Используйте процедуру.
Ответы (1)