<h2>Программа не будет работать без <u>ключевого слова алг</u> и <u>ключевого слова кон</u></h2>
Это PascalABC, но на должно сработать и на турбе)
var
s: string;
i: longint;
j: byte;
begin
writeln('Конец стиха - строка пустая');
repeat
for j := 1 to length(s) do
if (lowcase(s[j]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']) then
i := i + 1;
readln(s);
until s = '';
writeln(i, ' гласных букв');
end.
Номер 1)а)5506*2.б)2184*2
Номер2)а)24,б)142.
Номер 3)незнаю
Program sum;
Var a,b,c,d,e,f:real;
Begin
Write ('число a='); Read (a);
Write ('число b='); Read (b);
Write ('число c='); Read (c);
d:=a+b+c;
e:=a*b*c;
f:=d/3;
WriteLn ('Сумма чисел=',d);
Writeln ('Произведение чисел=', e);
Writeln ('Среднее арифметическое чисел=', f);
end.