Pascal цикл while последовательно вводятся числа, найти их сумму. ввод остановить после ввода второго нуля.
216
431
Ответы на вопрос:
Var a,s,k: integer; begin writeln('вводите числа: '); k: =0; while k< 2 do begin readln(a); s: =s+a; if a=0 then k: =k+1; end; writeln('s = ',s); end. пример: вводите числа: 4 9 5 0 1 3 2 0 s = 24
var
first,i: integer;
begin
for i: =100 to 999 do
begin
first: =i div 100;
if (i mod first)=0 then write(i+' ');
end;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Misis1126.11.2020 21:28
-
Тян25524.01.2023 21:20
-
fff56712.08.2020 05:58
-
Maksikar17.06.2023 19:34
-
mssalina512.06.2023 08:58
-
dobugrajk1821.02.2021 03:16
-
Vlab3653423.10.2020 03:51
-
bebe904.09.2021 06:05
-
annamajoriva95308.04.2023 00:44
-
darivorobey25.09.2021 23:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.