Объем файла = 200*600*1 байт = 200*600*8 бит
2 мин = 120 с
Скорость передачи данных = 200*600*8/120 = 8000 бит/с
Var
name, surname, patronymic : string;
begin
write('Введите фамилию: '); readln(surname);
write('Введите имя: '); readln(name);
write('Введите отчество: '); readln(patronymic);
writeln('Имя: ', name);
end.
Объяснение:
– сверху – это ваше "-"
& не ставится у меня, у себя его ставьте!
5! записывается как 120 (надо вычислять)
LXIV (римское) записывается как 64
11/4 записывается как 11/4 (деление), либо как результат 2.75
-1/6 записывается как -1/6 (деление), либо как результат с приемлемой точностью (-0.666...6)
√2 записывается как функция Sqrt(2), либо как результат с приемлемой точностью (1.4142135623730950488016887242...)
5·10⁶ записывается как 5e6
10⁶ записывается как 1e6
1/100000 записывается как 0.000001 или 1e-5
Var s,p1,p2:string;
a:array['A'..'Z'] of byte;
n,i,j,f:integer; c,sim:char;
begin
readln(n);
readln(s);
for c:='A' to 'Z' do a[c]:=0;
for i:=1 to length(s) do
a[s[i]]:=a[s[i]]+1;
p1:=''; p2:=''; f:=0;
for c:='A' to 'Z' do
begin
for j:=1 to a[c] div 2 do
begin p1:=p1+c; p2:=c+p2; end;
if (a[c] mod 2=1)and(f=0)
then begin sim:=c; f:=1; end;
end;
if f=1 then p1:=p1+sim;
p1:=p1+p2;
writeln(p1);
end.
Пример:
6
QAZQAZ
<span>AQZZQA
PS. Программа проверялась только для коротких (String) строк. Для длинных нужно использовать </span><span>AnsiString.</span>