Home
О нас
Products
Services
Регистрация
Войти
Поиск
Bruno123321
@Bruno123321
July 2022
1
9
Report
Найти и вывести все простые четырёхзначные числа
Паскаль, через вложенные циклы.
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
igor9997799
Verified answer
Var
i, j: longint;
b: boolean;
begin
b := true;
for i := 1000 to 9999 do
begin
for j := 2 to i - 1 do
begin
if(i mod j = 0) then
begin
b := false;
break;
end;
end;
if(b = true) then writeln(i);
b := true;
end;
end.
1 votes
Thanks 1
More Questions From This User
See All
Bruno123321
August 2022 | 0 Ответы
Вывести первые N натуральных чисел, сумма цифр которых нечётная. Паскаль. Через ...
Answer
Bruno123321
August 2022 | 0 Ответы
написать функцию нахождения кол-ва цифр через рекурсию. Паскаль. Рекурсия. Через...
Answer
Bruno123321
August 2022 | 0 Ответы
Дано натуральное число N. Найти и вывести все простые делители этого числа. Паск...
Answer
Bruno123321
August 2022 | 0 Ответы
Найти сумму всех двузначных чисел, кратных 5. Условный оператор не использовать...
Answer
Bruno123321
August 2022 | 0 Ответы
Вывести таблицу квадратов чётных чисел от 1 до 19. Условный оператор не использо...
Answer
Bruno123321
July 2022 | 0 Ответы
Дано натуральное число. Определить является ли оно палиндромом. Написать процеду...
Answer
Bruno123321
July 2022 | 0 Ответы
b. (Написать функцию для расчёта наибольшего общего делителя двух натуральных чи...
Answer
Bruno123321
July 2022 | 0 Ответы
Даны N натуральных чисел. Найти их наибольший делитель, используя алгоритм Евкли...
Answer
Bruno123321
July 2022 | 0 Ответы
Материальная точка движется по закону s=5t^2+6t. Найти ускорение точки...
Answer
Bruno123321
July 2022 | 0 Ответы
В десятичной записи числа 42*4* две цифры пропущены. Восстановите пропущенные ци...
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
о чем должны позаботиться в первую очередь взрослые при организационном вывозе н...
danilarsentev
August 2022 | 0 Ответы
Есть два станка на которых выпускают одинаковые запчасти один производит a запча...
myachina8
August 2022 | 0 Ответы
Найти по графику отношение V3:V1. В ответах написано 9, но нужно решение...
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
Определите Как создавалась и кто создавал арабское государство в крации...
MrZooM222
August 2022 | 0 Ответы
Ч. Айтманов в рассказе "Красное яблоко" использует метод рассказ в рассказе. Опи...
timobila47
August 2022 | 0 Ответы
каково было назначение каждой из частей византийского храма? помогите пожалуйста...
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
Участник Знаний
August 2022 | 0 Ответы
Пожалуйста!!!!!!!!!!!!...
sarvinozwakirjanova
August 2022 | 0 Ответы
помогите пожалусто пж...
×
Report "Найти и вывести все простые четырёхзначные числа Паскаль, через вложенные циклы..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Vari, j: longint;
b: boolean;
begin
b := true;
for i := 1000 to 9999 do
begin
for j := 2 to i - 1 do
begin
if(i mod j = 0) then
begin
b := false;
break;
end;
end;
if(b = true) then writeln(i);
b := true;
end;
end.