var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.
Осн. 2 -> Осн. 8 -> Осн. 10 -> Осн. 16
101010 -> 52 -> 42 -> 2A
1010111 -> 127 -> 87 -> 57
101000111 -> 507 -> 327 -> 147
101010 -> 52 -> 42 -> 2A
<em>Как говорится, это вам не С++ - тут все очень быстро и коротко ))))
// PascalABC.NET 3.3, сборка 1531 от 30.08.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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(w[1])));
i+=1;
until false;
// а теперь само решение
Writeln(L.MinBy(x->x[1]))
end.
<u>Пример</u>
Введите в каждой строке фамилию, пробел, время
1: Иванов 10.3
2: Петров 9.9
3: Уточкин 10.1
4: *
(Петров,9.9)
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10,0,20).Println;
a:= a.Where((v,i) -> i <> 4).ToArray;
a.Println;
end.
<span>Сайт в компьютерной сети,все порталы выполняют функции поиска, а также предоставляют интернет-сервисы, например: электронная почта, лента новостей и т. д.
</span>