Ответы на вопрос:
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.
Популярно: Информатика
-
0Peppa026.06.2021 15:20
-
денис113401.08.2020 19:12
-
isaevavika28.06.2023 06:05
-
0011010010122.05.2021 02:41
-
пахан5020.12.2020 14:46
-
FaceLess11131.03.2023 20:35
-
Kammmmmmmmmmmm29.05.2023 09:50
-
muzycuk18.04.2020 13:48
-
VasyPupok22818.11.2022 09:02
-
незнайка111702.08.2022 07:47