Областью применения ,информационным объёмом и некоторыми возможностями редактирования
GALINAMTO
24.09.2020
Как говорится, это вам не с++ - тут все быстро и коротко // pascalabc.net 3.3, сборка 1531 от 30.08.2017 // внимание! если программа не работает, обновите версию! begin var l: =new list< (string,real)> ; // это не решение , это ввод данных writeln('введите в каждой строке фамилию, пробел, время'); var i: =1; repeat var s: =readlnstring(i+': '); if s[1]='*' then break; var w: =s.towords; l.add(rec(w[0],real.parse(; i+=1; until false; // а теперь само решение writeln(l.minby(x-> x[1])) end. пример введите в каждой строке фамилию, пробел, время 1: иванов 10.3 2: петров 9.9 3: уточкин 10.1 4: * (петров,9.9)
shyroshka836103
24.09.2020
//pascalabc.net 3.2 сборка 1318 var x,x1,i: integer; xs: string; c: char; begin readln(x); xs: =inttostr(x); for i: =1 to length(xs) div 2 do begin c: =xs[i]; xs[i]: =xs[length(xs)-i+1]; xs[length(xs)-i+1]: =c; end; x1: =strtoint(xs); if x1> x then writeln(x1,'> ',x) else if x1< x then writeln(x,'> ',x1) else writeln(x1,'=',x); end. пример ввода: 1230 пример вывода: 1230> 321