Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
iulelebedeva
07.02.2021 06:04 •
Информатика
Составить программу вычисления суммы квадратов первых n членов натурального ряда, каждое из которых при делении на m дает в остатке f. (паскаль)
Показать ответ
Ответ:
Рашида0202
15.07.2020 23:48
Var x, n, m, f, s: integer;
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
NastyuZnanija
05.08.2021 03:48
Дана строка. Выведите строку, составленную из первых трёх символов и последних трёх символов исходной строки. Если в строке меньше шести символов, выведите слово НЕТ . Sample...
GizaHelinc
21.04.2023 04:26
1. На какие виды подразделяются инструменты программы SketchUp? 2. Какие инструменты имеются на панели рисования и каковы ихфункции?3. Какие инструменты относятся к группе инструментов...
sasha16103
29.07.2021 14:07
Каким образом можно вставить встроенную функцию? Перечислите, какие категории входят во встроенные функции.Каков синтаксис логической функции ЕСЛИ () ? нужно ответить на вопросы......
viktoska87
22.11.2021 03:00
Рекурсивные алгоритмы)...
godofwar171
23.04.2023 00:29
9) Файл Анкета.txt расположен в папке Учеба на жёстком диске C. Укажите полное имя данного файла A) Анкета.txtB) C:/Анкета.txtБ) С:/Учеба/Анкета.txtГ) C:/Учеба/Анкета...
Max70777
17.03.2023 03:46
Как посчитать квадратное уравнение в эксэль...
HGRM
02.04.2022 13:22
Информатика, написать программу для робота!...
даша3648
02.04.2022 13:22
Какой композитор написал оперу посвящая А.Огонбаева...
badoo40
02.04.2022 13:22
информатика информатика...
rus7300
29.04.2022 11:04
применение программы поиска и уничтожения информации на дисках для решение задач информационной безопасности. Тема доклада. Дайте какую нибудь информацию...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите N: '); readln(n);
write('Введите M: '); readln(m);
write('Введите F: '); readln(f);
for x := 1 to n do
if(x mod m = f) then s := s + sqr(x);
writeln('Сумма: ', s);
end.