Легко
Физик- Борисов
Математик- Иванов
Информатик - Семенов
Решение с помощью таблицы
Var d,l,pi: real;
begin
write ('d = '); read(d);
pi:=3.14;
l:=pi*d;
writeln ('L = ',l);
end.
Var m,b,ost,c,result:integer;
////M<B
begin
ost:=1;
writeln ('Введите два числа');
readln(b,m);
while ost<>0 do
begin
if m>b then
begin
c:=m;
m:=b;
b:=c;
end;
ost:= b mod m;
result:=m;
b:=ost;
end;
writeln('НОД: ',m);
end.
Символ = 11 бит ( 2^11=2048 символа )
всего бит 49152 * 11 = 540672 бит /8 / 1024 = 1024 Кбайт