Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
test
24/10/17
Calculatrice 1.0
Подсчёт количества целочисленных точек внутри круга радиуса r
1
ss
Escribir numeros a palabras hasta 4 digitos
test31
digits_count
nombre_completo
Please log in to post a comment.