Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tsvakhvesna
28.10.2020 06:23 •
Информатика
Нати сумму чисел от а до в, квадраты которых делятся на 7 (паскаль)
Показать ответ
Ответ:
Ангелина0611
25.08.2020 12:27
Var a,b,i,s:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=0;
for i:=a to b do
if i*i mod 7 = 0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 1
b = 30
s = 70
0,0
(0 оценок)
Ответ:
karolina000000
25.08.2020 12:27
Думаю, что числа целые. Тогда может получиться так:
var a,b,s,i: integer;
begin
writeln('Введите два числа');
readln(a,b);
for i:=a to b do
if sqr(i) mod 7 = 0 then s:=s+i;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lu000001
10.09.2021 22:53
М м м м м м м м м м м м м м м м м м м м м м м...
анастасия1548
11.01.2022 08:51
ЗАРАНЕЕ Определите размер следущих предложений в битах и байтах:A)‹‹XXI asr -yangi axborot texnologiyalari asri››;B)‹‹Kompyuterdagi barcha axborot ikkilik kodda saqlanadi››;C)‹‹374+267=641››;D)‹‹Welcome...
osolonskaya
14.02.2022 11:46
Покажи соответствие видов памяти по назначению...
rufdiana
19.06.2020 05:22
Из каких частей может состоять имя файла?...
xaxon93
07.01.2021 07:59
Какую информацию может обрабатывать и компьютер и человек...
18alinochka150
18.12.2022 15:41
Какие распространенные типы атак посредством беспроводной сети wi-fi вы знаете...
марина11110
15.09.2021 00:38
Даны три фигуры: 1 ) прямоугольник со сторонами a = 2, b = 3 2 ) круг радиуса r = 5 3 ) треугольник со сторонами x = 3, y = 4, z = 5. напишите программу (на алгоритмическом...
асема2005
10.10.2021 16:56
Найти производную у=1/(х^3-1)^4, у = 3^корень 3х^-2х+1, у=1/^3корень sin^5 2x...
tanyagrygorieva
10.10.2021 16:56
Раскройте скобки. образуйте от причастий краткие формы (не)вырытая яма, (не)продуманное решение, (не)сделанная работы, (не)вызубренное стихотворение...
shamanka12
10.10.2021 16:56
Утворіть від іменника утворити прикметник: поле,бiй,дощ,термiн,папiр,наука,казка,клен,служба,емаль,ясен,воля,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=0;
for i:=a to b do
if i*i mod 7 = 0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
a = 1
b = 30
s = 70
var a,b,s,i: integer;
begin
writeln('Введите два числа');
readln(a,b);
for i:=a to b do
if sqr(i) mod 7 = 0 then s:=s+i;
writeln(s);
end.