Напишите программу, которая вводит натуральные числа a и b и выводит все простые числа в
диапазоне от a до b . Входные данные: Входная строка содержит два натуральных числа, a и b . Гарантируется, что a ≤ b . Выходные данные Программа должна вывести в одной строке через пробел все простые числа на отрезке [ a , b ] . Если таких чисел нет, программа должна вывести 0.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
котенок
Var A,B,C,D,k:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
k:=0;
For B:= A to B do
Begin
D:=0;
For C:= 2 to B do
if B mod C = 0 then D:=D+1;
if D=1 then k:=k+1
End;
WriteLn(k);
End.
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
k:=0;
For B:= A to B do
Begin
D:=0;
For C:= 2 to B do
if B mod C = 0 then D:=D+1;
if D=1 then k:=k+1
End;
WriteLn(k);
End.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
