Дуже цікава робота Прочитайте добре на деякі питання потрібно дати кілька відповідей

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end. 

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

и так по кол-ву солдат

ну его в баню такую переправу и бедные мальчики