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
Squad equation
две рядом стоящие одинаковые цифры у числа
test04
zad27-notoptimal
SP2013E1b
Unicorn
Zadanie 3 б
String compare
Луноход-4
CON YÊU MẸ