Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
vvi1310
26.06.2019 02:00 •
Информатика
Написать программу с цикла с постусловием (repeat). паскаль вычислить сумму чисел в диапазоне от 19 до 51, если они делятся на 5.
Показать ответ
Ответ:
misterstepash
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 оценок)
Ответ:
Qaswe1
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 оценок)
Популярные вопросы: Информатика
HesteVlad
11.03.2021 18:03
Какая сила составляет железные опилки располагаться по окружностям подобно магнитам стрелкам...
karins2
11.03.2021 18:02
Вычислите значение выражения на языке python k = x3 – 4xy(x +y2)...
AlionaNigrevskaya
11.03.2021 18:01
5. Написать программу в среде программирования Python : Сложение трех целых чисел (a, b, c)a= b= c= summa=a+b+c(summa) мнеЗа спам бан)...
Аня1ove
11.03.2021 18:01
Використовуючиконструкцію команди повторення з параметром написати програму знаходження факторіалу числа n (n!=1*2*3*...*n), т.б. знайти добуток перших n натуральних чисел....
tematal
11.03.2021 17:59
Напиши программу, которая открыть указанное окно...
gladkova2002d
11.03.2021 17:59
Обозначениеround (x)odd (x )...
Aleluyarew
11.03.2021 17:58
Даны переменные, распределите их в соответствии с типами: Количество связей:4 Целые Символьные с плавающей точкой логические -2 2.5 Синий True ...
Sashabolsun04
11.03.2021 17:58
До іть з чотирнадцятим завданням терміново!...
MisteryHack0
11.03.2021 17:58
Как установить границы абзаца...
olcheymaaaa
11.03.2021 17:52
Запишите значение переменной t, полученное в результате работы следующей программы: var t, i: integer; begin t := 2; for i := 1 to 4 do t := t * i; writeln(t); end. ответ: (число)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
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.