Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Neznаykа
12.09.2020 18:20 •
Информатика
Мне нужно ответь составить программу, которая бы запрашивала хнач , хкон , шаг c и определяла сумму всех отрицательных чисел от хнач до хкон с шагом с (решить , используя цикл с постусло-вием – repeat … until).
Показать ответ
Ответ:
суперкотик4
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 оценок)
Популярные вопросы: Информатика
dawdawad
26.11.2022 05:11
Пернетақтада жоқ символдарды не үшін қолданамыз...
makskos4444
25.01.2022 15:17
Составить программу, определяющую и выводящую на экран сумму и количество элементов двумерного массива размером N*M, кратных числу К. Значения К, М и N вводятся с...
0987654321001
25.06.2021 11:41
ОЧЕНЬ Задание 1. ( ) Написать программу на Паскале и построить блок-схему алгоритма для решения следующей задачи: Вычислить площадь прямоугольного треугольника по...
СофияМ1
22.05.2020 19:51
Обчислити суму,де n - задане число.При перевірці n надавати значення не більше 10....
polinakket
10.08.2021 06:25
Основные элементы интерфейса Go.ogle Sket.chUp...
Dima2002dg
29.08.2021 02:42
18 б статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 48 символов. определите размер статьи в кодировке...
Alisher42Life
02.05.2020 18:41
Написать программу в паскаль : в массиве из 10 вводимых с клавиатуры чисел подсчитать количество чисел кратных первому элементу, но не кратных последнему элементу...
Скримлучший
13.11.2021 23:13
Вычислите значение функции: 3 у= х-5 и второе: у=2х+4, если х -1 3х²-х+1, если -1≤х≤3 √х+7, если х 3 блок-схема и программа...
justnastasyaaa
12.04.2021 04:25
Кто знаком с кодировкой расшифровать вот этот код. И сразу говорю что это не ссылка! 063RoMO/0KvRu9CN0rgB0K7QosKH0oXRo9G20ZbSitO00Z3RpdOP0JnQstKY0ZjCscO/06HSuNK707HRkgPTktOH0L7QvdKE0qfDktOA0YLQqxPTkNG90KnStNKY0KUI07/SkNGk0anSp9O80brSiCnRh9G0w4HSitCK0YrRstKUFNC10a7RptKH0a7ClsON0YvQktK+07rTm0fRntCiwqbTqNOFNtCg0LjQiNOz0JbRuNOJ0JnTgNGb0obSvNGs05PRltOX0YPQrNGH0JjDnQbRgyHRi9CmwoHQrdKn0aXSjNGB0rPQum8Y05fSndOWworRttCm0pbSltKVw4bRq9CF053RsdK00LXCndOk047RttCL05/QrQYu0YvCtNOM0I5b0ZvQitKF0LHQl9Kd0ZfRp9GD0oXQlNGR0a5hFtC90bbCm9C0063Rs9GVX9GK07XQidGU04jTqdCpw6140YbSl9GMftO30oQJ0JzQitCG05HCqtKP0prTgdOk0aHSl9Ce0Z7SkdCY0J19CNOO0Kdk04070orCstGn04TCi9OK0IDRhNCD0rXTg9CKwpnTldKh05DQsdKMw4ZS0ZbRntGM0bfSiNGU05rRhsO004XRtdO10afSqdOoFdOe0JPDrtG30YPTtmfTq9Cxw43TjdGF04zTldKt0Y/TqNO304LDtdOa0q/RpNOE0ZXClcO/0p/DidGg0rLSpdGQwqPRjNKw04TRkdC7IdKy0qnQmNGDW9Cq0pXRmtK20JDCt9O3N9GB04IU07PSqdKy0KLTn9OV0J/RuNOv04rCotKt0JLRg9C5CtOU07nSk9KIwr7SrNCf04zDmMOu0p7QjtKSE9C40qRi0o/Ru9O9w6jQo9Oz04/QqtKb0aHQk9GPFDbTkNGQ04jCi9G207/QukXSu9KnwpTQutGR06/RltKLFQ==...
kitsrarr
21.06.2022 14:45
как пишется данная команда bettercap --proxy --proxy-module injectjs --js-url http://secret/hook.js в новой версии bettercapa...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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