//FPC 2.6.4 function _string(s: string):integer; const z = ['А', 'Е', 'Ё', 'И', 'У', 'О', 'Ю', 'Ы', 'Я']; var count, i: integer; begin count:=0; for i:=1 to length(s) do if UPcase(s[i]) in z then inc(count); result:=count; end;
Внешняя (долговременная) память — это место длительного хранения данных, не используемых в данный момент в оперативной памяти компьютера. Внешняя память, в отличие от оперативной, является энергонезависимой. Носители внешней памяти, кроме того, обеспечивают транспортировку данных в тех случаях, когда компьютеры не объединены в сети (локальные или глобальные) . Целостность её содержимого не зависит от того, включен или выключен компьютер. В отличие от оперативной памяти, внешняя память не имеет прямой связи с процессором. Оперативная память — это быстрое запоминающее устройство не очень большого объёма, непосредственно связанное с процессором и предназначенное для записи, считывания и хранения выполняемых программ и данных. Оперативная память используется только для временного хранения данных и программ, так как, когда машина выключается, все, что находилось в ОЗУ, пропадает .
// Внимание! Если программа не работает, обновите версию!
function Glas(s:string):=s.Where(x->pos(UpCase(x),'АЕЁИОУЫЭЮЯ')>0).Count;
begin
var s:=ReadlnString('Введите текст');
Writeln('Гласных: ',Glas(s))
end.
Пример:
Введите текст Это мой примерчик для подсчета
Гласных: 10