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
2
perpus
practica 6 ejercicio 4
Giai pt bac 2
practica 7 ejercicio 1
Projet1
Однажды в сказке
practica 9 ejercicio 10
suduko solver
TanTai11A2@