Program gt;
var a:string;
k,l,i:integer;
begin
readln(a);
//Сначала переведем вес текст в нижний регистр
l:=length(a);
k:=0;
for i:=1 to l do
begin
if(ord(a[i])>64)and(ord(a[i])<91)then a[i]:=chr(ord(a[i])+32);
if(a[i]='а')or(a[i]='у')or ... or(a[i]='е')then k:=k+1; //здесь вместо точек пиши как ////предедушие но с гласными(другими) буквами
end;
writeln(k);
end.
((0и0)или0)и(1илиА)=0
(0или0)и(1илиА)=0
0и(1илиА)
А=0 - 0и(1или0)=0и1=0
А=1 - 0и(1или1)=0и1=0
=0
Задание 1.
Если нужна прога, то выводы и объявления сама накидай. А так: <span>Y:= sqrt(abs(2*sqr(x) - 7*x) + 12)
Задание 2.
На картинке не видно ни черта.
Задание 3.
s:=1;
for i = 1 to 2*n do
s = s*2
Задание 4.
for i = 1 to 20
s:=a(i)+a(i+1)
вне цикла
s:=s/20
Задание 5 - черт знает. С матрицами в Паскале не работал, да и как-то не хочется. Программы могут работать криво: закарючки расставь, пожалуйста, сама, я редко программирую в Паскале.</span>