/
spirzen
/
it-code-examples
Обзор
Документация
Войти
/
spirzen
/
it-code-examples
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
examples/pascal/lab-1140-021/main.pas
16 строк
269 B
Spirzen
Code migration pack
09 июн 2026, 01:41
09 июн 2026, 01:41
cebc284
Код
Авторство
О чём код?
program Vowels; var s: string; i: integer; vowels: set of char; begin vowels := ['a', 'e', 'i', 'o', 'u', 'y', 'A', 'E', 'I', 'O', 'U', 'Y']; ReadLn(s); for i := 1 to Length(s) do if s[i] in vowels then Write(s[i]); WriteLn; end.