Запишите через запятую наименьшее и наибольшее значение числа d, которое нужно ввести, чтобы после выполнения программы было напечатано 53?

var n, s, d: integer;

begin

readln(d);

n : = 23;

s : = 18;

while s < = 1977 do begin

s : = s + d;

n : = n + 6

end;

write(n)

end.

shift-шифт и caps loct-капс лук

клинопись

значит так, используем единственную в информатике формулу

n=2^i

n-это количество символов в алфавите, значит n=64

64 это 2 в 6 степени, значит i=6 - это информационный объем одного символа, а нам надо найти информационный объем 3072 символа, значит

6*3072 = 18432 бита = 2304 байта

var a,b,c,s,p: real;

begin

  read(a,b,c);

  p: =(a+b+c)/2;

  s: =sqrt(p*(p-a)*(p-b)*(p-c));

  write(s: 0: 2);

end.

вроде так