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
Стандартные функции в паскале round, trunc, int, frac
pretvarac u sekunde
Task 1
ProjetInfo
lala
x=2;n=3
Naloga 8: 10.9.2008
Trang
test13
AUMENTAR O DISMINUIR EDADES