Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Zadanie 2
Program Chisla; Var CH:Integer; {целое число} Begin Read(CH); {запросим число с клавиатуры} Case CH of 1,3,5,7,9: WriteLn('нечетное'); 2,4,6,8,10: WriteLn('четное'); else WriteLn('ошибка'); end; End.
run
|
edit
|
history
|
help
0
Different numbers in array
звёздное небо и подсчёт кратных звёзд + массив
first
aaaaaaa
Pokazivaci, ulancane liste
solar_system_yupiter
Урок 4 задача 5
Localisation ND
1 25 6
Подсчёт количества целочисленных точек внутри круга радиуса r