Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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
Please
log in
to post a comment.
TAPCON
fgh
Урок 3 не из учебника. U-контур и функция sign (x)
4º Questão VS - 1º Sem. 2017
sorting_direct_choise_optimized
kepo
Подсчёт количества единичных битов в десятичном числе от 0 до 15
Largest Prime Factor
Object Pascal
Primo1
stackse - search stackoverflow differently
Please log in to post a comment.