Ответы на вопрос:
ответ:
program test1;
var
a,b,c,k: integer;
begin
k: =0;
writeln('введите числa a,b и c: ');
readln(a,b,c);
if a > 0 then
k: =k + 1;
if b > 0 then
k: =k + 1;
if c > 0 then
k: =k + 1;
writeln('количество положительных чисел в исходном наборе: ',k);
end.
Популярно: Информатика
-
andreyusachevp0cxzy17.07.2022 14:09
-
borz200615.08.2021 23:10
-
228778anonim22877806.03.2023 03:38
-
vitalinaegorova27.06.2021 22:18
-
Наташа597925.07.2022 13:27
-
нтг112.03.2022 00:10
-
nellit0321.11.2021 16:57
-
assimie29.10.2020 14:35
-
3245331.05.2022 10:37
-
адэляком19.04.2022 06:32