Написать программу по . даны 3 целых числа, найти - вопрос №104563313 от карамакфин 25.03.2023 03:28

Question

Информатика: Написать программу по . даны 3 целых числа, найти количество положительных цифр на паскале

карамакфин · Answer

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.