Сколько файлов, объемом более 4 мб каждый, содержится в подкаталогах каталога demo-12

иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.