Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
1
Program If4; 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.
run
|
edit
|
history
|
help
0
1
4º Questão VS - 1º Sem. 2017
test01
Calculatrice 1.0
LUIZ ANTONIO RANGEL MUNIZ 60061122
Promedio con aprobación
Количество пар кр и не кр 11 оптимизированное с логикой
test29
Урок 4 задача 5
Pokemon2