Const rchars='аеиоуыэюя';var s: string; mas: array[1..length(rchars)] of integer; k,i: integer; begin s:='которой,нужно,напечатать,алфавитном,порядке,все,гласные,буквы,которые.'; {readln(s);} {инициализация массива счётчика гласных} for k:=1 to length(rchars) do mas[k]:=0; i:=1; while i<=length(s) do begin {проверка на соответствие буквы гласной, согласно списку гласных} for k:=1 to length(rchars) do if (rchars[k]=s[i]) and (mas[k]<>-1) then mas[k]:=mas[k]+1; if (s[i]=',') or (s[i]='.') then begin
{проверить повторение гласных на два и более раз и проинициализировать массив счётчик} for k:=1 to length(rchars) do if (mas[k]<=2) and (mas[k]<>-1) then mas[k]:=0 else mas[k]:=-1; end; Inc(i); end;
{Вывод повторяющихся гласных} s:=''; for k:=1 to length(rchars) do if mas[k]=-1 then s:=s+rchars[k];
Алг нач целтаб А[1:2, 1:3] цел а, б вывод "Исходная матрица:", нс нц для а от 1 до 2 нц для б от 1 до 3 А[а,б] := irand(-9,9) вывод А[а,б], " " кц вывод нс кц вещ Б если А[1,1] >= 0 то Б := 0 нц для а от 1 до 2 нц для б от 1 до 3 Б := Б + А[а,б] кц кц вывод "Сумма = ", Б иначе Б := 1 нц для а от 1 до 2 нц для б от 1 до 3 Б := Б * А[а,б] кц кц вывод "Произведение = ", Б всё кон
begin
read(a);
read(b);
read(c);
if (a+b>c) and (a+c>b) and (c+b>a) then
writeln('Да')
else
writeln('Нет');
readln;
end;