program raf105;
var
s: string;
g: integer;
function glas(s:string): integer;
const
glas_list = 'аяоёуюыиэе';
var
i,j,res:integer;
begin
s:= lowercase(s);
for i:=1 to length(s) do
for j:=1 to length(glas_list) do
if s[i] = glas_list[j]
then res:= res + 1;
glas:= res;
end;
begin
write('Введите строку: ');
readln(s);
g:= glas(s);
writeln('В строке ',g,' глас.');
end.
<h3><u>PascalABC 3.4.2</u></h3>
0.5КБ=512БАЙТ
512БАЙТ=512*8=4096БИТ
Антивирус по и обновления....
a) Лаборатория Касперского.
b) Файл, заражённый вирусом, останется на компьютере в том случае, если не проверять компьютер на наличие вирусов.
c) Антивирусные программы могут сканировать все файлы которые имеются на компьютере на наличие вредоностных программ или непонятных файлов, а также изменять или удалять содержимое компьютера (в смысле после нахождения вируса, антивирус может поместить его в карантин или вовсе удалить).