Начертить блок-схему к данной программе

var i: integer; s: real;

begin

writeln ('График тренировок');

i:=1;

s:=10;

repeat

i:=i+1;

s:=s+0.1*s;

until s>=20;

writeln ('Начиная с ', i, '-го дня спортсмен будет пробегать 20 км')

end.

1. Количество точек = 64*64.
Объем файла = 64*64*16 бит = 64*64*16/8 байт = 64*64*2 байт = 64*64*2/1024 Кбайт = 8 Кбайт

2. Размер цифрового моноаудиофайла измеряется по формуле:
     A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
44,1 кГц = 44100 Гц
 A = 44100*2*16 бит = 44100*2*16 / (8*1024) Кбайт = 172,265625 Кбайт ≈ 172,3 Кбайт

3. Общее количество символов для записи номеров = 20+10=30
Для кодирования одного символа необходимо log(2)30 ≈ 5 бит (2^5=32).
Для записи одного номера требуется 8*5 бит = 40 бит = 40/8 байт = 5 байт
Для хранения 50 номеров потребуется 50*5 байт = 250 байт

Pascal:
type
  cl=class
    public
    children:integer;
    f:integer;
    ff:integer;
     
end;
  var
    c:cl;

begin
  c:=new cl;
  writeln('Введите кол-во учеников: ');
  read(c.children);
  writeln('Введите кол-во стульев: ');
  read(c.f);
  if c.children>c.f then
  begin
  writeln('Некорректное значение (учеников < стульев)');
  Halt;
  end;
  c.ff:=c.f mod c.children;
  writeln('Кол-во учеников: ',c.children);
  writeln('Кол-во стульев: ',c.f);
  writeln('Кол-во лишних стульев: ',c.ff);
 
end.

(Если учеников больше, чем стульев, программа закроется с уведомлением. Если учеников столько же, сколько и стульев или меньше, то напишет кол-во лишних стульев).