Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
урок 8 задача 5 символьный тип данных
{Урок 8 задача 5.} var sign : char; var letter, digit : integer; begin digit := 0; // счётчик цифр letter := 0; // счётчик букв while sign <> '.' do begin read(sign); if sign in ['0'..'9'] then digit := digit + 1 else if sign in ['a'..'z', 'A'..'Z'] then letter := letter + 1; end; writeln (digit, ' ', letter); end.
run
|
edit
|
history
|
help
0
Zadanie 4
звёздное небо с подсчётом двойных звёзд
Circle
2nd tsk
Promedio con aprobación
aaaaaaa
test24
Подсчёт двойных звёзд в строках и столбцах
practica 11 ejercicio 1
Решето Эратосфена