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>
9*1024*1026*8 = 75497472 бит
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.