Program If4; Var
A,B,C,k: Integer;
Begin
k:=0;
WriteLn ('Bвeдите числа A, B и C: ');
ReadLn(А, В,С) ;
If A>0 Then
k: =k + 1:
IF B >0 Then
к: =k + 1;
If C> 0 Then
к: =k + 1;
WriteLn ('Количество положительных чисел в исходном наборе: ',k);
Еnd.​
Перевести на С#

elena11060207    1   11.09.2020 21:47    0