Ответы на вопрос:
program p2; var a,b,c: integer; kolichestvo: byte; summa: integer; beginkolichestvo: =0; summa: =0; readln(a); if a< 0 then kolichestvo: =kolichestvo+1 else summa: =summa+a; readln(b); if b< 0 then kolichestvo: =kolichestvo+1 else summa: =summa+b; readln(c); if c< 0 then kolichestvo: =kolichestvo+1 else summa: =summa+c; writeln('количество отрицательных = ',kolichestvo); writeln('сумма положительных = ',summa); end.
Популярно: Информатика
-
karamendes1p06wtk11.06.2021 05:48
-
lyudsiya133730.11.2022 18:03
-
Ліка200606.07.2022 13:56
-
winston63ru23.03.2020 05:45
-
Ashmalikova19.02.2020 16:33
-
МикаэльБостон22.02.2020 08:18
-
рдабаббмдедпббб27.07.2020 09:35
-
dxdarthur200118.08.2020 23:31
-
MasterPomogite02.08.2021 13:01
-
katarina100226.04.2020 14:59