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
LUCAS SERRADO GOES CONCEICAO 600624134
Primo1
practica 9 ejercicio 4
asdfa
TanTai11A2@
TanTai11A2@
khaithien
zadanye 3 г
solar_system_n_planets_any_time
test06