Дана последовательность чисел содержится 1-но отрицательное число найти сумму элементов этой последовательности до 1-го отрицательного числа решите
248
284
Ответы на вопрос:
Var a,s: integer; begin a: =0; while a> =0 do begin read(a); if a> 0 then s+=a; end; writeln(s); end.
Популярно: Информатика
-
fcpolva27.08.2022 14:48
-
Машина015.05.2022 13:54
-
eptvz402.08.2021 02:43
-
maevava08.01.2020 07:35
-
Dirolling24.11.2021 14:58
-
Kurolama28.02.2021 20:14
-
ya042302SashaA29.12.2022 21:25
-
mariamuraskina906.04.2021 04:11
-
Dyakgod17.08.2022 19:22
-
lexiagahadi28.06.2023 11:32