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
Weather
jugando v2
3
Количество пар кр и не кр 11 с дельтой эффект и неэффект алгоритмы
Fibonacci
Пиріжки
Cek dua pangkat
Pojavljivanje elemenata jednog niza u drugom nizu
practica 7 ejercicio B6
practica 9 ejercicio 11