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

91

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

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

ответить

в избранное

45

dimax_2010

01 августа 2022

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.

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

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

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

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

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

01 августа 2022

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

01 августа 2022

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

01 августа 2022

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

01 августа 2022

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

01 августа 2022

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

01 августа 2022

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

01 августа 2022

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

01 августа 2022

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

01 августа 2022

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

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

ПОПУЛЯРНОЕ

alexarh29, 01 августа 2022

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

serdykov, 01 августа 2022

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

sanya-b5, 01 августа 2022

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

reiter, 01 августа 2022

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

belka, 01 августа 2022

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

mixa377, 01 августа 2022

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

remox, 01 августа 2022

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

alando, 01 августа 2022

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

vurdik, 01 августа 2022

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

27400

14821

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

14216

Биология

7369

720

Экономика

18828

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

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

465

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

46271

Русский язык

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

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

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