Ответы на вопрос:
Uses crt; var a,b,c,s,k : integer; begin writeln('введите 3 числа : '); readln(a,b,c); if a > 0 then begin k: = k + 1; s: = a; end; if b > 0 then begin k: = k + 1; s: = s + b; end; if c > 0 then begin k: = k + 1; s: = s + c; end; writeln('сумма чисел = ' , s); writeln('количество положительных чисел = ', k); end.
Популярно: Информатика
-
ДавыдоваЮлия567829.04.2020 08:14
-
Toichievakumis206.08.2020 01:35
-
elya14407.08.2021 14:33
-
EEEboyyyyy01.02.2021 17:07
-
Staslu24.06.2022 10:52
-
Petrosyan3133719.09.2021 03:28
-
Игорь377303.04.2021 11:47
-
кира63108.08.2020 23:47
-
denisprokopev15.01.2021 19:02
-
69devil6904.04.2021 03:28