Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nastic2k2
17.04.2020 19:42 •
Информатика
Написать программу с цикла с постусловием (repeat). паскаль вычислить сумму чисел в диапазоне от 19 до 51, если они делятся на 5.
Показать ответ
Ответ:
lalalala777
02.10.2020 11:49
Var a,b,c:
integer;
begin
a:=19;
b:=0;
repeat
if (a mod 5 = 0) then
b:=a+b;
a:=a+1;
until (a>52);
writeln(b);
end.
0,0
(0 оценок)
Ответ:
ИрБи562
02.10.2020 11:49
// Pascal
var sum : integer;
i: integer;
begin
sum := 0;
i := 19;
repeat
if i mod 5 = 0 then
sum := sum + i;
i := i + 1;
until (i > 51);
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
талифа4
22.09.2022 20:40
Файл размером 32 кбайта передаётся через некоторое соединение со скоростью 1024 бита в секунду. определите размер файла (в байтах), который можно передать за то же время через другое...
Leraekb2012
21.10.2021 00:35
Расписание: 1. Английский язык;2. Биология;3. Геометрия;4. Казахский язык;5. Казахский язык;6. Физическая культура;7. Самопознание;8. Английский язык. СОР ИДЁТ ...
YuliaZagorna
18.11.2022 19:01
Язык с. написать программу, которая печатает объем памяти занимаемый одной переменной для типов int, short int, long int, float и double....
davidforest111p0dsil
06.10.2022 00:07
Потрясающая беседа Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt «Вот если бы, — думал Пятачок, выглядывая...
M7ila
27.01.2021 16:45
Со стадиона возвращаются четверо футболистов коля мирас жандос саща среди футболистов мираса саши и жандоса есть вратарь.среди футболистов мираса саши и жандоса есть вратарь мирас...
RMaGaR
27.01.2021 16:45
Определите который сейчас час если известно что от начала суток на 4: 40 меньше чем осталось до конца суток...
malafeecheva17
27.01.2021 16:45
Составить предложение об играх детей...
Лизуша111авм
27.01.2021 16:45
Дано н2о сао m(cao)=28г m(ca(oh) m(...
Milenadaw
27.01.2021 16:45
Чем человек отличается от других живых существ?...
evsiukova80
08.10.2022 12:42
До якого столиття та до якои його половыны належить 753 р до н. е....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
integer;
begin
a:=19;
b:=0;
repeat
if (a mod 5 = 0) then
b:=a+b;
a:=a+1;
until (a>52);
writeln(b);
end.
var sum : integer;
i: integer;
begin
sum := 0;
i := 19;
repeat
if i mod 5 = 0 then
sum := sum + i;
i := i + 1;
until (i > 51);
writeln(sum);
end.