Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
jiminiry02
16.06.2020 17:10 •
Информатика
Написать программу для подсчета суммы введенных с клавиатуры чисел до тех пор, пока не будет введен 0.
Показать ответ
Ответ:
gopina04vika
08.10.2020 01:24
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(ReadSeqIntegerWhile(x->x<>0).Sum);
end.
0,0
(0 оценок)
Ответ:
nastiaUA
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 оценок)
Популярные вопросы: Информатика
nastakim68
15.12.2020 10:14
Здравствуйте Как можно создавать модели в программе SketchUp? 2) Каковы функции инструментов управления пространством в программе SketchUp? 3) Для выполнения каких действий используется...
асемок4
10.05.2021 23:43
Книга Про белого бычка... имеет объем 40 Кбайт. Каждая страница книги содержит 32 строки по 64 символа. Сколько страниц в книге?...
sergnovop08ly5
10.10.2020 12:43
1. Объясните почему собирать все данные в одной таблице во многих случаях нерационально. Предложите решение данной ситуации....
sofialipezina23
19.02.2022 09:51
Решите подробно зарание...
Зефирка170504
29.12.2020 21:37
Сколько ячеек в памяти компьютера занимают данные программы, присвоенные переменным a, b, c, d, e? #Код программы: a = 16 b = a - 8 с = 16 - ь a = 20 - с е 2 4 print(a,b,c,d,e)...
Ignat20032612
07.01.2023 20:34
Появление алфавитного письма в финикии...
kamilaraeva
04.01.2020 02:03
Решите : десяти собакам и кошкам скормили 56 котлет. каждая собака съела по 6 котлет, а каждой кошке досталось по 5 котлет. сколько было кошек? ( для олимпиады)...
rahbfwBbdqbqdI
04.01.2020 02:03
(0,963+11,037)/0,012-99 восемь девятых нужно по действием каждое решить заранее )...
Nik228tyto4ki
04.01.2020 02:03
Напишите мини сочинение на my school. 10...
Khayalnuriev2005
04.01.2020 02:03
Составьте формулы веществ оксида серы 6 фосфорной кислоты гидроксдида натрия и запишите по 1 уравнению реакций характерезующие свойства этих веществ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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