1. Информатика
  2. Написать программу ввода с

Написать программу ввода с клавиатуры и суммирования любого количества целых значений. условием выхода считать сумму значений равному числу 1000.

megasashabori megasashabori    3   02.09.2019 12:10    0

Ответы
DAmigoX DAmigoX  06.10.2020 11:57
Var a,s : Integer;
Begin
  s:=0;
  While s<>1000 do
  Begin
    Readln(a); s:=s+a;
    Writeln('Текущая сумма: ',s);
  end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
H1tg1rl H1tg1rl  14.09.2019 20:50
Дан одномерный массив. положительные элементы уменьшить в два раза, отрицательные заменить их индексами. 1)блок схему 2)элементы рандомные...
angelenok1840 angelenok1840  13.05.2020 09:20
Статья, набранная на компьютере, содержит 8 страниц, на каждой странице 16 строк, в каждой строке 32 символа. Определите размер статьи в килобайтах, в которой каждый символ кодируется...
ppp13 ppp13  13.05.2020 09:20
При каких действий закрашивается внутренняя часть эллипса​...
xLAFFYx xLAFFYx  13.05.2020 09:21
1. Каким образом изменяется стиль шрифта для заголовка и текста слайда? 2. Как вставить изображение в слайд? Как сделать изображение фоном слайда? 3. Как добавить эффект перехода...
volkovaw volkovaw  21.10.2020 17:34
6.Оқушы электронды пошта арқылы маңызды құжатты ата-анасына жіберу қажет болды. Интернет желісін қауіпсіз қолданудың екі жолын ұсыныңыз. ​...
yarik159 yarik159  21.10.2020 17:33
Создать презентацию (5–10 слайдов) на одну из выбранных тем: «Мое хобби». «Мой домашний питомец». «Мое любимое время года»....
mashaivedmed05 mashaivedmed05  21.10.2020 17:33
Эгрономика ережесисиндеги кагидалар​...
lui19 lui19  21.10.2020 17:33
Определи символы, соответствующие десятичному коду, и расшифруй слово068 079 083​...
khavakim khavakim  21.10.2020 17:33
Информатика задание на фотографии ​...
rassvetmoydrug rassvetmoydrug  21.10.2020 17:32
«Сымсыз желілер» тақырыбына қатысты сөзжұмбақ құ \Үй тапсырмасырастырыңдар.​...

Популярные вопросы