Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Tittans104
09.09.2020 07:01 •
Информатика
Написать программу для подсчета суммы введенных с клавиатуры чисел до тех пор, пока не будет введен 0.
Показать ответ
Ответ:
normanajas15
08.10.2020 01:24
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqIntegerWhile(x->x<>0).Sum);
end.
0,0
(0 оценок)
Ответ:
ruskei
08.10.2020 01:24
Var a,s:integer;
begin
s:=0;
readln(a);
while a<>0 do
begin
s:=s+a;
readln(a);
end;
writeln('s = ',s);
end.
Пример:
5
8
3
4
6
0
s = 26
0,0
(0 оценок)
Популярные вопросы: Информатика
770glym
04.09.2020 06:18
Повтори 9 раз Сместиться на (-3,-2) сместиться на (2,2), сместиться на (3,10) Конец...
Kamila28032001
27.02.2021 10:17
1. Дана таблица в режиме отображения формул: 10 18 A1+6 --SA2-8 Какие формулы будут записаны в ячейки В2, ВЗ, С2, СЗ, если в ячейки В2 и ВЗ скопировано содержимое...
Артём0Болдырев
04.02.2022 22:00
(Работа на эмуляторе emu8086) Я нашел интересную задачку, которую не могу решить написать программу. Имеются два массива 8-ми битных целых чисел со знаком. Сформировать...
bill3334
04.02.2021 10:58
На столе ручка лежит левее карандаша,пенал правее тетради,тетрадь-правее карандаша.что лежит последним?...
karma228cska
04.02.2021 10:58
Впредставленном кроссворде (рис. 4.6) дайте определение словам по горизонтали и вертикали...
Efimenko34
10.08.2020 00:22
Поясніть суперечність між 7-кратним зміцненням промислового потенціалу України та збереженням колоніального статусу іїї економіки...
vipaldybaeva
01.02.2021 07:07
Задан интервал чисел от 10 до n,составить программный код,в результате которого на экран выведутся все числа,у которых цифры одинаковые(например,n=34,тогда ответ будет...
arina121212
28.04.2020 02:28
Решите задачи. 1. На дне шахты барометр зафиксировал давление 795 мм рт. ст., у поверхности земли – 756 мм рт. ст. Определите глубину шахты....
lera978
03.10.2022 21:09
Главный инженер завода Жульев был зарегистрирован кандидатом в депутаты представительного органа местного самоуправления. Узнав об этом, директор пригласил его к себе...
мскисуля2
27.08.2022 10:02
В чем заключались важнейшие особенности социальной структуры России в начале xxв....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1634
begin
write(ReadSeqIntegerWhile(x->x<>0).Sum);
end.
begin
s:=0;
readln(a);
while a<>0 do
begin
s:=s+a;
readln(a);
end;
writeln('s = ',s);
end.
Пример:
5
8
3
4
6
0
s = 26