Войти
Регистрация
Спроси 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 оценок)
Популярные вопросы: Информатика
Dasha78906543
01.09.2022 20:59
Люди сделать самостоятельную работу по информатике....
bondiserj
17.04.2020 11:26
Составьте программу,заменяющую из двух данных чисел большее число удвоенным произведением,а меньшее-полусуммой этих чисел....
Нига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 можно поставить Робота, чтобы он выполнил алгоритм, записанный ниже, и сделал хотя бы один шаг? нц пока слева свободно влево кц...
SerAv2000
15.05.2022 18:32
Составить по 2 предложения со знаками препинания- . ? !...
lilaorazova2003
15.05.2022 18:32
Почему произведение называется воробей ?...
Юролика
15.05.2022 18:32
Повідомлення про вірусні хвороби людини. ето...
Dasiol
15.05.2022 18:32
Составьте распространенные предложения со словами орфограмма, орфоэпия...
elizaveta08071999
15.05.2022 18:32
Какие части речи у слов широкий туча снежинки чащу тишину чудесного закачялся затрещяли пощяды...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.