Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
Var i,j,n,k: integer; r: real;begin write('радиус: '); readln(r); n:=trunc(r); k:=0; for i:=-n to n do for j:=-n to n do if sqr(i)+sqr(j)<=sqr(r) then k:=k+1; writeln('число точек в круге: ',k);end.
N=2^i
N=16=2⁴=> i=4 бита инф.объем 1 символа.
1/256Мбайта=1/256*1024 Кбайт=4Кбайта=4*1024байт=4096байт=8*4096 бит
n=8*4096бит:4бита=2*4096=8192символа
Ответ: 8192 символа
<span><span>program nazvanie;
</span><span>var a,b,b1,k,k1:integer;
</span>begin<span>
write('Введите трехзначное число: ');</span><span>
readln(a);</span><span>
b:=a;</span><span>
while b<>0 do</span><span> begin</span><span> b1:=b mod 10;</span><span>
if b1 mod 2=0</span><span> then</span><span> k:=k+1</span><span> else</span><span> k1:=k1+1;</span><span>
b1:=b div 10;</span><span>
b:=b1;</span><span>
end;</span><span>
if k>k1</span><span> then</span><span>
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
</span><span>else if k<k1</span><span> then</span><span> write('Кол-во нечетных больше, чем четаных в числе ',a);
</span><span>end.
Немного переделать и будет рабочая прога!</span></span>