Регистрация
squeezy1312
29.07.2020 22:35
Информатика
Есть ответ 👍

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.​
Перевести на С#

278
453
Посмотреть ответы 1

Ответы на вопрос:

GNA14
GNA14
4,8(46 оценок)

ответ :7340032

Объяснение:

Популярно: Информатика