Program task1;
var a :integer;
begin
randomize; a:= 0; while (a <> 5) and (a <> 6) do a:= random(7); writeln(a);
<span>end.
program task2;
var Digit, i :integer; DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); for i:= length(DigitStr) downto 1 do write(DigitStr[i]);
<span>end.
program task3;
var Digit :integer; NewDigit, DigitStr :string;
begin
readln(Digit); str(Digit,DigitStr); NewDigit:= DigitStr[3] + DigitStr[4] + DigitStr[1] + DigitStr[2]; writeln(NewDigit);
<span>end.</span></span></span>
Тут же цикл, он повторяет дейтсвия...
Посчитай сам, каждый проход даёт +2 к S.
<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>
На 234 метро вырастет деревом через 2340 дней