Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
образец
24.03.2021 23:06 •
Информатика
Паскаль абс.нет составьте программу вычисления суммы квадратов простых чисел из промежутка [m; n]
Показать ответ
Ответ:
mysenjor
04.10.2020 00:52
Var
x,d,m,n,s:integer;
begin
read(m,n);
for x := m to n do
begin
d := 2;
while (d < x) and (x mod d <> 0) do
d := d + 1;
if x = d then
s := s + sqr(x);
end;
write(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
debnatkh
10.05.2023 01:02
Поясните разницу между технической моделью самолета и информационной моделью самолета...
liyakhakimova
15.02.2022 01:40
Записать определения: ощущение, восприятие, представление, мышление, понятие, суждение, умозаключение....
hhd734hd
08.06.2023 06:01
Складіть програму для розв’язування задачі. Потрібно обклеїти шпалерами стіну довжиною а м і шири- ною b м. Скільки коштуватимуть шпалери, якщо ціна одного рулону...
marshmallowcat2
09.01.2022 16:58
5. Из упр 340 выпишите 1, 2,3,6 предложения. Вставьте и подчеркните буквы, оформите прямую речь....
света1094
09.01.2022 16:58
Пересказ биографии Платонова из учебника шестого класса авторы Полухина Коровина Журавлёв Коровин ...
katystolbova
11.03.2020 09:26
Выполните лексический разбор слова: Ржавой (тиной)...
нази17
11.03.2020 09:26
Моя безопасность во время катаклизмов Укажи возможные последствия землетрясения. разрушение зданий накопление токсичных веществ гибель урожая Назад Проверить...
CERN
01.11.2020 07:02
7. Проверьте, верны ли следующие уравнения: О 547 891: 457 = 87 457 821: 658 = 96...
AlexCh1
14.02.2023 00:05
1-тапсырма. Мақалада келтірілген терминдерді қолдана отырып, сұраққа жауап бер. Найзағай жарқылдағанда қандай озон түзіледіадам үшін пайдалы ма немесе зиянды ма?Мәтіннен...
ryure146
09.04.2020 07:40
Математика 5 сынып 727 есеп...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x,d,m,n,s:integer;
begin
read(m,n);
for x := m to n do
begin
d := 2;
while (d < x) and (x mod d <> 0) do
d := d + 1;
if x = d then
s := s + sqr(x);
end;
write(s)
end.