Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
slia1984
01.05.2021 16:38 •
Информатика
Мне нужно ответь составить программу, которая бы запрашивала хнач , хкон , шаг c и определяла сумму всех отрицательных чисел от хнач до хкон с шагом с (решить , используя цикл с постусло-вием – repeat … until).
Показать ответ
Ответ:
sharopoamir05
03.10.2020 18:47
//Pascal ABC.NET 3.1 сборка 1256
Var
n,k,c,s,kar:real;
i:integer;
begin
read(n,k,c);
i:=0;
s:=0;
kar:=n;
repeat
if n<0 then s:=s+n;
inc(i);
n:=kar+i*c;
until n>k;
writeln(s);
end.
Пример ввода:
-3
1
1.1
Пример вывода:
-5.7
0,0
(0 оценок)
Популярные вопросы: Информатика
khydyrov1404
21.05.2021 06:43
Что такое данные ? чем данные отличаются от информации?...
Vikzza
21.05.2021 06:43
Почему привод для cd-дисков не может читать диски dvd....
Аннабель0Свит
07.08.2022 00:40
Общий объем занятое пространство дискета 1,44 мб 600 кб флеш-накопитель 2 гб 2040 мб cd-rw 700мб 716000кб 1)флэш-карта имеет объем 1гбайт. альманах содержит 336 страниц, в которой...
aldiyar20020922
24.01.2023 21:17
Найти разность между произведением и суммой цифр трехзначного числа. pascal...
nika1299
24.01.2023 21:17
Сколько существует различных последовательностей из символов плюс и минус длиной ровно шесть символов? а)64 б)50 в)32 г)20...
filinenok98
18.12.2022 08:57
Имеется устройство для обработки информации «чёрный ящик»определить по таблице входов и выходов, в чём заключается обработка информации этим устройством.входы выходы36 1828769 182004...
Демон1997
13.02.2022 01:16
Данны сторны прямоугольника найти его периметр пример как делать дано время в чесах и в минутах выразить его в минутах var c,a,b: inter; begin writeln ( введите время в часах и в минутах...
finicot
22.04.2021 09:12
Определите сколько информации содержится в тексте. переведите в биты. мир освещается солнцем, а человек учебой....
PHVRVOH
09.08.2021 23:27
Вычислите,каков объем в мегабайтах растрового графического файла размером 1024*640 при 32-битном кодировании?...
vvvvcrrrq
30.11.2021 08:31
Чи завжди модель може відобажати реальний стан об єкта...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
n,k,c,s,kar:real;
i:integer;
begin
read(n,k,c);
i:=0;
s:=0;
kar:=n;
repeat
if n<0 then s:=s+n;
inc(i);
n:=kar+i*c;
until n>k;
writeln(s);
end.
Пример ввода:
-3
1
1.1
Пример вывода:
-5.7