tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Среди трёхзначных чисел найти
Среди трёхзначных чисел найти и вывести простые числа. программа для qbasic
karikovt
3 24.06.2019 12:50
0
Ответы
mlgcuca
19.07.2020 23:58
CLS
FOR i = 101 TO 999 STEP 2
p = 1: j = 3
DO WHILE (j <= SQR(i)) AND (p <> 0)
p = ((i MOD j) <> 0)
j = j + 2
LOOP
IF p <> 0 THEN PRINT i;
NEXT i
END
Результат выполнения программы:
101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179
181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269
271 277 281 283 293 307 311 313 317 331 337 347 349 353 359 367
373 379 383 389 397 401 409 419 421 431 433 439 443 449 457 461
463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571
577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661
673 677 683 691 701 709 719 727 733 739 743 751 757 761 769 773
787 797 809 811 821 823 827 829 839 853 857 859 863 877 881 883
887 907 911 919 929 937 941 947 953 967 971 977 983 991 997
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikmeldov
03.07.2019 10:40
Решить уравнения по информатике: 12х=9 в 10 системе счисления 23х=15 в 10 системе счисления 101х=17 в 10 системе счисления 15х= 9 в 10 системе счисления...
steamenigasteam
03.07.2019 10:40
Сколько трехзначных чисел можно составить из цифр 1,2,3,чтоб цифры не повторялись...
heh18
03.07.2019 10:40
Запишите 5 современных интерфейсов подключения периферийных устройств. примеры оборудования, которое подключается с рассматриваемых интерфейсов,...
danilatnt
30.11.2020 19:23
Бравл старс скачать бесплатно...
виктор2282
30.11.2020 19:23
Олімпіс 2020 - Осіння сесія 7 клас 124 запитання із 24 Запит- Якось Вова розсортував файли в одніх із папок по спадаючій. Чи зможеш розставити файли так, як вийшло у нього? Перша...
PicaChuShiK
16.03.2021 09:09
Задание: Лиза хочет написать программу к задаче: вычислите значение функции у, но затрудняется в написании условия Лизе и впишите в пропущенные места недостающие фрагменты...
makslazarev201
13.05.2020 12:25
2. Дайте развернутый ответ на во Письменно). 1. Какие два основных познания существуют? 2. Из чего состоит структура деятельности? 3. Перечисли основные виды деятельности. 4. Перечисли...
Snow241
13.05.2020 12:25
Письменно ответить на во Серёжа Багров, Николенька Иртеньев, Алёша Пешков : что у них общего и различного? ...
Простоелена26
13.05.2020 12:25
Ребята не могу разобраться балов Прочитайте текст, задания выполните на основе прочитанного текста. ответы на задания записывайте словами или цифрами, разделяя их, если нужно,...
frhjkvg11
13.05.2020 12:25
Решите литру годовую кр по братски внизу фото...
Популярные вопросы
Выдели в предложении грамматическую основу и выпиши любое словосочетание. укажи...
3
Виміряйте масу монетки. що слід зробити, щоб отримати якнайточні-ший результат?...
3
Найдите гипотенузу прямоугольного треугольника если его катеты равны18 и 24...
1
Дайте комплексну характеристику однієї з країн південної америки за типовим...
1
как определить направление силы действующей на движущийся проводник со стороны...
3
Відредагуйте прийменникові словосполучення: по делу, по закону, по болезни,...
2
Знайдіть найбільше значення функції y=x2+2x-5 на проміжку [0; 2]...
3
Заполнить таблицу по . страны новое время.начиная с ....
1
1)для функції f(x)=x2 знайти первісну f, що приймає дане значення в f(-1)=2...
2
Тема производные решите 2 ! 1. найдите f (п), если f(x)= cosx/x f (2), если...
2
FOR i = 101 TO 999 STEP 2
p = 1: j = 3
DO WHILE (j <= SQR(i)) AND (p <> 0)
p = ((i MOD j) <> 0)
j = j + 2
LOOP
IF p <> 0 THEN PRINT i;
NEXT i
END
Результат выполнения программы:
101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179
181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269
271 277 281 283 293 307 311 313 317 331 337 347 349 353 359 367
373 379 383 389 397 401 409 419 421 431 433 439 443 449 457 461
463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571
577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661
673 677 683 691 701 709 719 727 733 739 743 751 757 761 769 773
787 797 809 811 821 823 827 829 839 853 857 859 863 877 881 883
887 907 911 919 929 937 941 947 953 967 971 977 983 991 997