Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Iluyshin
22.05.2021 00:12 •
Информатика
17 ! посчитать сумму и количество чисел, которые кратны a, в диапазоне от b до c. (тут должен быть цикл for)
Показать ответ
Ответ:
Krasoto4kayoy
03.10.2020 10:13
Var a,b,c,s,k,i:integer;
begin
write('b = ');readln(b);
write('c = ');readln(c);
write('a = ');readln(a);
s:=0; k:=0;
for i:=b to c do
if i mod a = 0
then begin s:=s+i; k:=k+1; end;
writeln('s = ',s,' k = ',k);
end.
Пример:
b = 4
c = 25
a = 5
s = 75 k = 5
0,0
(0 оценок)
Ответ:
mallaya01
03.10.2020 10:13
........................................
0,0
(0 оценок)
Популярные вопросы: Информатика
nemova1973
26.12.2021 23:49
Какая форма представления информации о животном является наиболее наглядный фотографии...
Змейкп
22.02.2023 10:09
Очень ! Составьте схему стандартной постановки задачи....
Бумеранг1
06.11.2022 13:53
Составь алгоритм перемещения изображений из папки общего доступа «Общие рисунки», расположенного на рабочем столе,в папку «Мои рисунки».N.Алгоритм заданияСписок команд...
Бодя386
20.12.2020 02:35
комектесиндерши информатикадан. такырып: Ақпаратты цифрлы тасымалдаушылар...
bbayy
10.01.2022 23:00
Наведи приклади алгоритмів з повним і неповним розгалуженням....
timekid
28.01.2023 12:06
Наведіть структуру оператора For. мова Python...
ViShEnKalкрасная
06.04.2021 21:35
Одномерные массивы. написать программу. дан массив из N чисел. подсчитать количество элементов больше 20 и кратных 5 ...
NadyaSmirnovaa
20.06.2022 18:24
, важно очень! используя шаг, прыжок и поворот, постройте данный рисунок...
daniltyrov719
03.10.2020 08:53
Поясніть призначення оператора циклу: Repeat х : = StrToFloat (inputBox( Введення X, Введіть додатне число , 0 )); Until x 0;...
lenaldld
01.01.2020 17:43
Какая из перечисленных операций не является логической:а) NOTб) ORв) MOD г) AND ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('b = ');readln(b);
write('c = ');readln(c);
write('a = ');readln(a);
s:=0; k:=0;
for i:=b to c do
if i mod a = 0
then begin s:=s+i; k:=k+1; end;
writeln('s = ',s,' k = ',k);
end.
Пример:
b = 4
c = 25
a = 5
s = 75 k = 5