650 ПЕРЕВЕСТИ В КБ И ДЕЛИТЬ НА 3072
650x1024=665600
665600/3072=216,6сек
216,6/60=3,61мин
4мб=4*1024кб=4*1024*1024б=4*1024*1024*8=
2
=33 554 432
program z8;
uses crt;
var
i,k,n:byte;
s:integer;
sa:real;
begin
clrscr; i:=1;
writeln('Для завершения последовательности нажмите ноль');
while i>0 do begin
read(i);
Как мы тебе его здесь построим? открывай эксель и пиши в ячейках формулы