Ответы на вопрос:
Var a,f,s,i: longint; begin for i: =1 to 3 do begin readln(a); inc(s,a); if (a< 0) then inc(f); end; writeln(s); writeln(f); end.
Популярно: Информатика
-
galina180908.11.2022 05:52
-
beka986716.02.2023 11:40
-
ASLiza199223.10.2021 08:30
-
aigerimnur03.06.2023 04:57
-
pughluy19.01.2020 14:36
-
soborsasha21.03.2021 00:55
-
egorik250609.11.2022 20:43
-
Angelina135555505.06.2023 06:39
-
Nikita6756611.06.2023 17:10
-
alenafgfgf21.05.2020 09:59