С клавиатуры вводятся два натуральных числа N и K (0

91

С клавиатуры вводятся два натуральных числа N и K (0

категория: информатика

ответить

в избранное

45

dimax_2010

27 марта 2023

Var simple: array[1… 10000] of integer; i, j, a, b, simple_n, s: integer; is_simple: boolean; begin read (a, b); for i: =2 to b do begin is_simple: =true; for j: =1 to simple_n do is_simple: =is_simple and (i mod simple[j] <> 0); if is_simple then begin simple_n: =simple_n+1; simple[simple_n]: =i; writeln (i); if i >=a then s: =s+i; end; end; writeln (s); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Другие вопросы по информатике

27 марта 2023

Помогите ответить на вопросы) 1) надпись на клавише, находящейся рядом с клавишей Pause 2) надпись на клавише, при нажатии на которую происходит отмена действия или выход из некоторого состояния 3) надпись на клавише, которую иногда называют самой главной клавишей 4) краткая надпись на клавише, переводящей курсор на страницу вниз

27 марта 2023

Задается целое число N. Нужно вывести количество четных делителей числа N. Формат входных данных Единственная строка входного файласодержит единственное целое число N (1 <= N <= 1000)

27 марта 2023

Укажите допустимые и недопустимые им ена переменных: 3Var, end, a65, end_of_name, prog_12, путь. Каким служебным словом обозначаются данные вещественного типа? Укажите комбинацию «горячих клавиш» для просмотра результатов работы программы и переключения алфавитов

27 марта 2023

1 появление первых лазерных дисков 2 первые следы иероглифического письма в Древнем Египте 3 появление первых жестких дисков для компьютеров 4 изобретение магнитофона 5 изобретение фотографиих дату

27 марта 2023

2. Определите информационный объем звукового файла, если файл длится 1 минуту и звуковой картой с частотой 32 КГц и разрешением 8 бит воспроизводитсястереозвук. Ответ запишите в КБайтах.3. Определите количество цветов в картинке, если ее информационный объем 703,125 Кбайт, а разрешение графического редактора 800*600.

27 марта 2023

В числе, записанном в римской системе счисления, поменяли местами вторую и третью, четвертую и пятую от начала цифры, а затем перевели результат вдесятичную систму счисления. Получилось число 2162. Определите исходное число, переведите его в десятичную систему счисления и запишите результат. Напомним чтодля записи чисел в римской системе счисления используют набор из семи цифр (I,V.X,L,C,D,M) ответы ввиде тестов.

27 марта 2023

Как египтяне перешли от изображения значком целого слова к изображению отдельногозвука

27 марта 2023

Перевести 2048 К. Байт в Байты

27 марта 2023

Какой объем видеопамяти необходим для хранения четырех страниц изображения, если битовая глубина равна 24, а разрещающая способность дисплея 800 на 600 пикселей

Задайте свой вопрос

ПОПУЛЯРНОЕ

alexarh29, 27 марта 2023

Помогите ответить на вопросы) 1) надпись на клавише, находящейся рядом с клавишей Pause 2) надпись на клавише…

serdykov, 27 марта 2023

Задается целое число N. Нужно вывести количество четных делителей числа…

sanya-b5, 27 марта 2023

Укажите допустимые и недопустимые им ена переменных: 3Var, end, a65, end_of_name, prog_12, путь

reiter, 27 марта 2023

1 появление первых лазерных дисков 2 первые следы иероглифического письма в Древнем Египте 3 появление первых жестких…

belka, 27 марта 2023

2. Определите информационный объем звукового файла…

mixa377, 27 марта 2023

В числе, записанном в римской системе счисления, поменяли местами вторую и третью, четвертую и пятую от начала цифры…

remox, 27 марта 2023

Как египтяне перешли от изображения значком целого слова к изображению отдельногозвука?

alando, 27 марта 2023

Перевести 2048 К. Байт в Байты

vurdik, 27 марта 2023

Какой объем видеопамяти необходим для хранения четырех страниц изображения, если битовая глубина равна 24…?

27400

14821

Английский язык

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

465

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...