Складіть проект, у якому виконавець 4 рази змінить образ, якщо
буде натиснуто клавішу пропуск, або переміститься на 20 кроків
управо, якщо буде натиснуто клавішу стрілка вправо. Складіть проект, у якому виконавець, поки він не доторкнеться до
межі, буде повторювати такі дії: рухатися вгору та повідомляти
деяке повідомлення, якщо буде натиснуто клавішу стрілка вгору,
або рухатися вниз і повідомляти інше повідомлення, якщо буде на-
тиснуто клавішу стрілка вниз.
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];
writeln(s);end.