Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
mashkax28марічка
17.11.2021 14:13 •
Информатика
Водится положительное число прекратить ввод когда сумма введёных чисел превысит 100
Ответ:
29082
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 оценок)
Популярные вопросы: Информатика
drgotika2011
17.04.2020 02:31
Напишите число Х для которого истинно высказывание:НЕ(Х 6) И (Х ,...
далекоотсолнца
22.02.2021 10:34
Х=( не б - не не с)×( не а- с) Решить по информатике 10 класс, применяя правило де моргана...
veyper1
16.04.2021 02:43
Разгадайте кроссворд по теме инструменты скетч ап...
VovanGh165
24.12.2021 11:11
Сколько вариантов двузначных чисел можно составить из 3 цифр? Цифры в числах не повторяются....
mokrotynp0934y
03.03.2021 12:37
В каталоге находится 6 файлов: chifera.dat;chifera.doc;ferrum.doc;deLafer.doc;ofert.doc;tokoferol.doc.Запишите маску, с которой можно отобрать файлы: chifera.dat, chifera.doc,...
иска4578
23.07.2021 06:32
1. Постройте таблицу истинности для следующего выражения: x∧¬y∧z ответ дайте при каких значениях переменных функция будет истинна? 1.x=0; y=1; z=1 2.x=1; y=0; z=1 3.x=0;...
Appolinaria1330
25.06.2021 01:37
Какой результат дает процедура delete (what is this? 5,8)?...
44444kobzarr1
25.02.2022 12:08
Переведите результат выражения 12 ^12x15^15 - 10010111^2 в шестеричную систему счисления очень...
am5673
13.08.2022 04:48
Какой камандой обьеденьяются ячейки...
zaya46
25.04.2020 10:50
Создать новое предложение из гласных букв исходного. Язык С++...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.