В паскале сделать используя циклы: Ввести число и определить является ли оно простым (если его делители являются 1 и само число)
10-11 класс
|
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('Введите число k=');
readln(k);
d:=2;
n:= k div 2;
pr:=false;
while (d<=n) and not(pr) do
if k mod d = o then pr:=true else d:=d+1;
if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');
readln
end.
Другие вопросы из категории
несколькими спосабами
одном доме, даже в одном подъезде живут учителя Климов, Михеенко, Ушаков,
Жебин. Один из них учитель математики, другой – информатики, третий –
рисования, а четвертый – музыки. Известно, что: ни Климов, ни Ушаков не умеют
играть ни на одном музыкальном инструменте; Ушаков не знаком с Климовым;
учителя рисования и информатики в воскресенье уезжают на дачу к Михеенко; Жебин
попросил учителя рисования написать картины с его изображением и изображением
Климова. Отметь вариант, в котором верно указано, кто есть кто.
Читайте также
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
оно четным или отрицательным.(Паскаль)
Или так: Из 16 -ти чисел,сделайте для каждого вывод,является ли оно четным или отрицательным .(Паскаль)
Помогите пожалуйста,оченьььь срочно надо!Буду благодарна за решение ,спасибо!!!!!!!
1)Натуральное число n называется простым если оно делится только на 1 и на само себя.по соглашению 1 не считают простым числом. Проверить является ли n простым числом
2)Найдите и выведите на экран все трехзначные числа кратные 3, сумма цифр которых больше суммы цифр частного от деления их на 3
2.Ввести число . определить четное или не