Top.Mail.Ru
Ответы

Помогите решить на Паскале!!!

Сновидения

Имя входного файла input.txt
Имя выходного файла output.txt
Максимальное время работы на одном тесте 2 секунды
Ограничение по памяти 64 МБ
Осознанные сновидения — состояние сознания, при котором человек осознает, что видит сон и может в той или иной степени управлять им. Они являются предметом научных исследований, их существование научно подтверждено. Высоким уровнем владения техники осознанных сновидений является умение засыпать во сне.
Андрюша очень увлекся осознанными сновидениями и через месяцы упорных тренировок научился мастерски управлять своим сном. Теперь он тренируется многократно засыпать во сне. Но во время одной из таких тренировок что-то пошло не так! Андрюша не запомнил, сколько раз он засыпал, и теперь после каждой попытки проснуться он постоянно просыпается возле загадочной каменной плиты с непонятным текстом. Но наш герой не отчаивается! Он убежден, что если ему удастся посчитать количество согласных и гласных букв в тексте, а так же количество цифр и пробелов, то он обязательно проснется. Вот только беда — во сне никак не получается сосредоточиться. Вас, как опытного программиста, просят написать программу, которая вернет Андрюшу в реальный мир.
Формат входных данных:
Задан обычный текстовый файл, размер которого не превосходит 100 КБ.
Формат выходных данных:
В выходной файл выведите 4 числа: количество английских гласных, английских согласных, цифр и пробелов в тексте соответственно. В английском алфавите гласными считаются буквы: e, y, u, i, o, a.
Пример
input.txt
abc
a b c
d
output.txt
1 2 0 0
1 3 0 2

По дате
По рейтингу
Аватар пользователя
Новичок
12лет

Беда-беда. Зачем лезть в олимпиады если нет мозгов?)

for n:=1 to length(s) do
begin
if s[n] in ['e', 'y', 'u', 'i', 'o', 'a'] then inc(gl) else if s[n] in ['a'..'z'] then inc(sogl);
if s[n] in ['0'..'9'] then inc(dig);
if s[n]=' ' then inc(prob);
end;

Аватар пользователя
Мастер
12лет

Могу сделать, вроде несложная задача, пиши в личку