Мдигтоьмпттмно иотмрльмпь иолмпотиир полипропилен ьтолллдь
Компьютер заменится на волк
Ответ:
Первое слово - программа
Второе - разряд
Третье - байт
Суммарное количество гласных-6
Шрифт, размер, начертание и цвет.
<span>Var
Text, Slovo, max:string;
Begin
WriteLn('Введите строку, разделенную пробелами: '); ReadLn(Tex);
Text:= Text + ' ';
max:='';
While Pos(' ',Text) <> 0 do
Begin
</span>Slovo<span>:= Copy(Text, 1, Pos(' ',Text) - 1);
Delete(Text, 1, Pos(' ',Text));
if Length(</span><span>Slovo</span><span>) > Length(max)
then max:= </span>Slovo<span>;
End;
WriteLn('Самое длинное слово: " ',max,' " его длина ',Length(max));
ReadLn;
End.</span>