<em><u>Для сред программирования DOS (например, Turbo Pascal) удалите фигурные скобки, для сред Windows (например, PascalABC.Net) строки в фигурных скобках удалите полностью.</u></em>
{uses Crt;}
const
n=80;
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string[80];
i:integer;
begin
{ClrScr;}
Writeln('Введите текст (учитываются только 80 первых символов)');
Readln(s);
for i:=1 to n do
if s[i] in digits then Write(s[i]);
Writeln;
for i:=1 to n do
if not(s[i] in digits) then Write(s[i]);
Writeln;
{ReadKey}
end.
<em><u>Тестовое решение:</u></em>
Введите текст (учитываются только 80 первых символов)
Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км
5410444044004102
Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км
Дано
N-128
<u>K - 20
</u>Найти i -?
I - ?
Решение:
Находим информационный вес символа по формуле N=2^i
i=7 бит
Теперь объем информации по формуле:
I=K*i
20*7=140 бит
110-89=21
21+89=110 вот вроде правильно
Program prog;
uses crt;
var a,b,v:integer;
begin
clrscr;
write('Возраст Антона = ');
readln(a);
write('Возраст Бориса = ');
readln(b);
write('Возраст Виктора = ');
readln(v);
writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.');
if (b>a)and(b>v) then writeln('Борис старше всех.');
if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора');
if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса');
if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста');
end.