Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
HelpDZ1
16.12.2020 06:06 •
Информатика
Составить программу вычисления суммы квадратов первых n членов натурального ряда, каждое из которых при делении на m дает в остатке f. (паскаль)
Показать ответ
Ответ:
SonyaCooling
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 оценок)
Популярные вопросы: Информатика
Алиса0202
11.11.2022 17:05
1. Создать за на удаление данных из школы №232. Создать за на добавление след.данных:a. Иванова Ирина Петровна родилась 12.05.1988 в г.Москва,училась в школе №5...
волна16
26.09.2022 22:28
Задание 7. Фотографию размером 1024 х 2048 пикселей сохранили в виде несжатого файла. Для кодирования одного пикселя использовали 4 байта. Определите размер получившегося...
svetlanakorneev
15.08.2020 22:29
Надо сделать программу, которая сначала спрашивает флаг какой страны показать (1 - страна 1, 2 - страна 2, 3 - страна 3), а потом после ввода с клавиатуры цифры 1, 2 или...
Dasha78906543
01.09.2022 20:59
Люди сделать самостоятельную работу по информатике....
Foreveralone321
16.05.2020 23:22
Дан массив вещественных чисел x(x1? ).найти произведение положительных элементов массива и подсчитать их число....
bondiserj
17.04.2020 11:26
Составьте программу,заменяющую из двух данных чисел большее число удвоенным произведением,а меньшее-полусуммой этих чисел....
aya121
22.10.2022 17:06
А) найти сумму членов вводимые в числовой последовательности, признаком конца является 0. б) составить программу вывода нечетных чисел от 1 до 10 используя цикл while....
Нига2ц8
17.05.2021 16:18
Робот выполнил программу и вернулся в исходную позицию. Какое число было записано вместо знака вопроса? вниз нц 6 раз вправо закрасить кц вверх влево нц ? раз закрасить влево...
mikayilmalik2
12.11.2021 08:38
В какие из четырех клеток A, B, C или D можно поставить Робота, чтобы он выполнил алгоритм, записанный ниже, и сделал хотя бы один шаг? нц пока слева свободно влево кц...
sakds
07.06.2022 21:57
В какие из четырех клеток A, B, C или D можно поставить Робота, чтобы он выполнил алгоритм, записанный ниже, и сделал хотя бы один шаг? нц пока слева свободно влево кц...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.