Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
olgabelova51487
08.01.2021 02:22 •
Информатика
Организовать суммирование введённых с клавиатуры чисел до тех пор, пока значение суммы не превысит s. вывести полученную сумму на экран.
Показать ответ
Ответ:
TheFlyHelp
08.10.2020 14:29
Var a,s,s1:Integer;
begin
Write('Введите число, которое должна превысить сумма чисел (s): ');
ReadLn(s);
while s1<=s do
begin
Write('Введите число: ');
ReadLn(a);
s1:=s1+a
end;
WriteLn('Сумма введенных чисел: ',s1)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Jakclin
15.12.2020 09:50
Составить таблицу значений функции y=5x-3 для x из промежутка [-7; 7] с шагом 1; 05...
pyankova06
15.12.2020 09:50
Какой текст будет напечатан на форме после выполнения программы, записанной на объектно-ориентированном языке программирования visual basic? dim stra, strb, strc as stringsub...
olgaborodec82
15.12.2020 09:50
Чем различаются разные векторные форматы?...
DarkGay
13.09.2020 17:23
Выполните действия: а) 1110112 + 101112 б) 1000112 - 101112 в) 10111112 + 11102 г) 100012 - 11112 д) 11002 + 1011112 е) 1001002 - 101102...
nuk890
31.12.2022 22:21
Створіть у різних формах надання інформаційну модель об єкта дитячий майданчик з точки зору архітектора та будівельника...
Лаймик0
24.04.2020 03:19
4-тапсырма* *. Суретте берілген бөлменің өлшемдерін есепте, программасын құр.1. Бөлменің еденінің ауданын тап.2. Бөлменің периметрін есепте.3. Бөлменің төрт қабырғасының ауданын...
Zzzasha
12.01.2023 15:50
ПАСКАЛЬ Составить массив из 100 случайных значений принадлежащих диапазону [-k;m] организовать вывод массива на экран, чтобы каждое значение было на новой строке в зависимости...
leralerochka202
02.02.2021 00:29
Добрый день с данными заданиями: 3.Сложить числа. а) 1000101101(2)+1100000010(2); б) 1111011010(2)+111001100(2); в) 1001000011,1(2)+10001101,101(2); г) 415,24(8)+1345,04(8);...
Olesya1223
11.10.2020 11:00
Найти значение логического выражения: В & (А ˅ С) Таблицу постройте...
няшка367
31.07.2022 12:01
Алгоритм собери урожай.1.начало 2.войди в сад 3.подойди к яблоне 4. сорви яблоко 5. положи яблоко в корзину 6. 8. конец...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Write('Введите число, которое должна превысить сумма чисел (s): ');
ReadLn(s);
while s1<=s do
begin
Write('Введите число: ');
ReadLn(a);
s1:=s1+a
end;
WriteLn('Сумма введенных чисел: ',s1)
end.