Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
kosorotovslavik
15.11.2022 17:45 •
Информатика
Пож 1 составить программу, которая бы запрашивала хнач , хкон , шаг c и определяла сумму всех отрицательных чисел от хнач до хкон с шагом с (решить , используя цикл с предусло-вием – while .. do).
Показать ответ
Ответ:
astatined
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 оценок)
Популярные вопросы: Информатика
cosovanovcostya
08.06.2023 13:03
Измени программу для x от 10 до 30 с шагом 3. Напиши результат переменной z (2б.) z= 0 for x in range(3): z=z+x...
89825518635e
28.02.2022 19:48
2. Дан двумерный массив asd = ||7, 10, 12, 17]. 19, 15, 20, 36|]. Определите элемент, который находится по индексу asd[0][3]. ...
Ksenya5727
20.12.2021 10:55
Чертежнику был дан для исполнения следующий алгоритм: Повтори 4 раз сместиться на (-1, -1) сместиться на (2, 2) сместиться на (3, - 3) конец какую команду надо выполнить...
Evildevil2
25.06.2021 07:52
Сколько дней (дат) в году отображается на экране электронных часов, если сначала пишется месяц, а потом день? Например, 27 декабря соответствует 12:27....
Chelovechena1
12.08.2020 21:25
Напишите эссе о жизни в городах, где мало Солнца (150 слов)...
sereja65
24.08.2022 22:45
Укажите закономерности процесса кристаллизации, закрасив нужные фигуры зелёным цветом. Температура вещества понижаетсяВнутренняя энергия вещества возрастаетТемпература...
alekseywindas
24.08.2022 22:45
1) u(x0)=−3 и u (x0)=3; 2) v(x0)=−3 и v (x0)=4; 3) f(x)=u(x)v(x). Вычисли значение f (x0):...
Matveyka16
24.08.2022 22:45
Какие чувства испытывал девочка когда получила подарок Запишите ответ Выпишите из текста не менее 3 ключевых слова словосочетания которые подтверждают ваш ответ...
yaps61
23.03.2020 13:20
Как связать словосочетания стран Центральной Азии, древнетюркской письменности, арабские, персидские, уйгурские Писания, образование и наука?...
pohta000000
26.07.2020 10:32
Дан треугольник АВС. Плоскость, параллельная прямой АВ, пересекает сторону АС этого треугольника в точке А1, а сторону ВС - в точке В1. Найти длину отрезка А1В1,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.