Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.
Var m,n:integer;
Begin
write('Введите m и n: ');
readln (m,n);
while m<>n do
begin
If m>n then m:=m-n
else n:=n-m
end;
write ('НОД=',m)
end.
<span>На место "..." </span>ставим "<>"
Какую длину и где сама окружность
1)uses crt;
var a,b:integer;
s:real;
begin
readln(a);
readln(b);
if (a+b>5) then s:=sqrt(a+b) else s:=sqr(a+b);
writeln(s);
end.
2)uses crt;
var a,b,c:integer;
pr:real;
begin
readln(a);
readln(b);
readln(c);
if (abs(a*b*c)>=10) then pr:=(a*b*c)/3 else pr:=(a*b*c)*(a*b*c)*(a*b*c);
writeln(pr);
end.
3)uses crt;
var a,b,sq:integer;
begin
readln(a);
readln(b);
if (a>b) then sq:=sqr(a);
if (b>a) then sq:=sqr(b);
writeln(sq);
end.
4)uses crt;
var a:integer;
begin
readln(a);
if (a<20) and (a>0) then a:=a-4 else a:=abs(a);
writeln(a);
end.
Кол-во символов=65536, объем=24Кбайт
инф.объем одного символа=24*1024*8бит/65536=3 бита
мощность N=2³=8 символов в алфавите