<span>var
f: text;
s: string;
max: string := '';
begin
//в папке с программой должен быть файл "input.txt"
if FileExists('input.txt') then
begin
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
Readln(f, s);
if Length(s) > Length(max) then
max := s;
end;
Writeln('Самая длинная строка в файле: ');
Writeln(max);
Close(f);
end
else
Writeln('Файл не найден');
end.</span>
Uses crt;
var s,s1,s2:string;
i,k:integer;
begin
readln(s);
k:=pos(' ',s)-1;
for i:=1 to k do
s1:=s1+s[i];
k:=k+2;
for i:=k to length(s) do
s2:=s2+s[i];
writeln(s2,' ',s1);
end.
Данное решение основано на простом алгоритме деления данного числа на основание системы Ограничения для чисел (не более 9-тизначного числа)
Данное число и основание системы вводим в указанные ячейки
Недостаток программы: как убрать не значащие нули в ответе?
Это фоторафии, рисунки, изображения
16/32=1/2 КБайт/сек- скорость
1/2*1024=512 Байт/сек
512/8= 64 бит/сек