Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
Var
S, C, Cmax: string;
i, j, k, max: integer;
Begin
Write('Введите предложение: ');ReadLn(S);
S := UpperCase(S) + '.';
max := 0;
i := 1;
while (i <= Length(S)) do
begin
C := '';
while (S[i] in ['А'..'Я']) do
begin
C := C + S[i];
i += 1;
end;
k := 0;
For j := 1 to Length(C) do
if (C[j] in ['А','Е','Ё','И','О','У','Э','Ю','Я']) then
k := k + 1;
if (k > max) then
begin
max := k;
Cmax := C;
end;
i += 1;
end;
WriteLn('Слово с наибольшим количеством гласных: ',Cmax);
End.
Пример:
Введите предложение: Написать алгоритм,что указывает в данному предложении слово, в котором количество гласных максимальное
Слово с наибольшим количеством гласных: ПРЕДЛОЖЕНИИ
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg
1. (x>=-1) and (x <=1)
2. (x<-1) and (x>1)
3. (x<0) and (y<0)
4. (x<0) or (y<0)
5. (x>0) and (y>0)
6. sign(x)<>sign(y)
7. x*y*z<>0
8.x*y*z=0
9. (x<>0) or (y<>0) or (z<>0);
А) 1000<span> − 11</span><span> = </span><span>101
б) </span>10011<span> + 1</span>011<span> = 11</span><span>110
в) </span>101<span> × </span>101<span> = 11</span><span>001</span>