Program palindrom; Uses crt; var s: string; i,f: byte; begin clrscr; write('String: '); readln(s); f := 0; for i := 1 to length(s) div 2 do if s[i] <> s[length(s)-i+1] then begin writeln('No palindrome'); f := 1; break end; if f = 0 then write('Palindrome'); readln end.
Формула нахождения размера файла - I=t*b*f*k,где t - это время в секундах,b - глубина кодирования ,f - частота дискретизации,k - количество каналов.Перейдём к задаче => 2 минуты - 120 секунд, 8кГц - 8 000 отсчётов в секунду - представим как 2^3*2^10;16 = 2^4, Нужно помнить ,что 1 Мбайт = 2^20 байт = 2^23 бит, 1 Кбайт = 2^10 байт = 2^13 бит т.к нам надо ответь дать в мегабайтах.Делим всё на 2^23 120 представим как 60*2
I=1*2^3*2^10*2^4*120/2^23=2^17*2*60/2^23=2^18*60/2^23=> степени сокращаем получаем 60/2^5 =>60/32 = примерно 1,875 => округляем до целых будет 2 .ответ 2 мегабайта.
Uses crt;
var s: string;
i,f: byte;
begin
clrscr;
write('String: ');
readln(s);
f := 0;
for i := 1 to length(s) div 2 do if s[i] <> s[length(s)-i+1] then begin writeln('No palindrome');
f := 1;
break
end;
if f = 0 then write('Palindrome');
readln
end.