Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ksenyaLove1246
04.09.2020 20:05 •
Информатика
Водится положительное число прекратить ввод когда сумма введёных чисел превысит 100
Показать ответ
Ответ:
DarinaUSA
16.06.2020 12:03
uses crt;
var ch,s:integer;
begin
s:=0;
while s < 101 do
begin
readln(ch);
if ch > 0 then
s:=s+ch;
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mariyam005
17.02.2022 11:35
Задание 1. TOДЛЯ человекасодержаниевоспринимаемых человеком непосредственно или с специальныхсигналов (сообщения),устройств.информация — информация, отражающая истинноеIіоложение...
Princess1111Yulua
02.12.2022 19:24
1. Яке значення буде записане в клітинку D1 в результаті виконання формули?А) -2 В) 3Б) 4 г) 52. Вкажіть правильні адреси комірок:A) G16B) ФЗБ) 5КГ) 843. Внесення змін до вмісту...
adobycina43
11.05.2021 09:12
Задайте массив из 10 элементов с датчика случайных двухзначных положительных чисел. Найдите разность наибольшего и наименьшего элементов. Выведите на экран полученный массив...
otepovaaazan
03.08.2021 21:22
В цветовой модели RGB для кодирования одного пикселя используется 3 байта. Фотографию размером 1772×3543 пикселей сохранили в виде несжатого файла с использованием RGB-кодирования....
sobennikovaox
15.10.2020 12:18
Дан код с номером. Определи, какой это символ: управляющий или изображаемый. Код с номером 60....
lelekasahsa7
26.09.2021 16:36
Приведите примеры алгоритмов из своего личного опыта. *...
2005Dasha0305
21.09.2022 10:18
Перечислите плюсы и минусы автоматизации деятельности человека...
aza53
20.06.2022 07:43
Вмассиве из 8 целых чисел переставить максимальный элемент на первое место, а элементы с первого до максимального сдвинуть на одну позицию вправо.!...
eleonora1306200
25.02.2023 21:33
Обозначь правильные, по твоему мнению утверждение о документы ,созданные в текстово редактора microsoft word. -- документы могут содержать не только текст. -- изображения,...
leprekon1999ku
17.03.2021 10:49
Паскаль абс оператор саsе ввести с клавиатуры букву 7-го класса. определить его тип: а - гимназический, б - , в - обычный, г - коррекция. (буква может быть большой или маленькой)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var ch,s:integer;
begin
s:=0;
while s < 101 do
begin
readln(ch);
if ch > 0 then
s:=s+ch;
end;
end.