Алг
нач
вещ а,б,с,мин
вывод "Введите результат первого "
ввод а
мин:=а
вывод "Введите результат второго "
ввод б
если мин>б то мин:=б все
вывод "Введите результат третьего "
ввод с
если мин>с то мин:=с все
вывод "Результат победителя заплыва: ",мин
кон<span>
</span>
Ответ В
Нужно добавить "треко" на 3 место в слог " ант"
в итоге одна буква "т" уберется и получится "антреко"
В 32. Надо разделить числа, тогда будет известно, во сколько раз.
1.
Function Check(A : Longint) : Boolean;
Begin
If A>9 then Check:=((A mod 10)=(A div 10 mod 10)) and Check(A div 10) else Check:=True;
end;
Var N : Longint;
Begin
Readln(N);
Writeln(Check(N));
end.
Program anton4nk;
uses crt;
var x, y : string;
begin
clrscr;
writeln('Введите имя и фамилию.');
readln(x,y);
writeln(x);
end.
Если я правильно конечно понял задачу. Если нет, отпиши.