Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
alex1439
15.03.2020 09:09 •
Информатика
Пож 1 составить программу, которая бы запрашивала хнач , хкон , шаг c и определяла сумму всех отрицательных чисел от хнач до хкон с шагом с (решить , используя цикл с предусло-вием – while .. do).
Показать ответ
Ответ:
vaper4
28.09.2020 19:16
Var
x0, x1, c, sum: integer;
begin
sum:=0;
readln(x0, x1, c);
while x0<=x1 do
begin
sum:=sum+x0;
x0:=x0+c;
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
polina686
13.02.2021 04:14
Объясните термин «плагиат»...
Ондруй
29.06.2020 11:17
Қандай да бір материалдық форма түріне келтірілетін және қандай да бір адамның немесе адамдар тобының ақыл-ой, іс-әрекетінің нәтижесі...
alex2132
03.02.2020 18:08
Сc++ циклические и итерационные алгоритмы найти двузначное число, сумма кубов цифр которого равна n...
мэри114
15.04.2022 09:49
1,какие числа записаны с римских цифр v.caciiх,liх,iх ? 2,с римских цифр запишите дату своего рождения,моя дата 20.07.99 ? ,...
Золушка444
15.04.2022 09:49
Ниже представлен фрагмент html-документа. чему равно количество столбцов таблицы?...
Dashasvi
24.07.2020 19:20
Когда и как соперники выбрали свои пути для поиска похищенной людмилы(поэма руслан и людмила)...
tihomir72
24.07.2020 19:20
Переведите на 1) в моей идеалтной школе не будет школьной формы2) там будет разная и вкусная еда 3) в буфете будут шоколадки,выпечка,соки,вода,конфеты 4) моя школа...
leryn1999
24.07.2020 19:20
Поставь данные словосочетания в данный падеж свежая зелень(д.п)...
DanilSv040
24.07.2020 19:20
Три цепи питания: для тайги, для смешанных лесов, для широколиственных лесов...
varksen
24.07.2020 19:20
Почему при переливании крови следует учитывать группы крови донора и реципиента...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x0, x1, c, sum: integer;
begin
sum:=0;
readln(x0, x1, c);
while x0<=x1 do
begin
sum:=sum+x0;
x0:=x0+c;
end;
writeln(sum);
end.