Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
123
//fpc 3.0.0 Program If_4; var a, b, c, plus: integer; begin write('Введите три целых числа: '); readln(a, b, c); if a > 0 then Inc(plus); if b > 0 then Inc(plus); if c > 0 then Inc(plus); writeln('Количество положительных чисел: ', plus); end.
run
|
edit
|
history
|
help
0
BubbleSor (slimmer)
Для Лехи -1
CON YÊU MẸ
pascal sizeof
practica 3 ejercicio B3
5 5
busca de string
ax+by=n
звёздное небо и подсчёт кратных звёзд
1