E:\видеозапись.avi
E:\ график.xls
E:\ИЗОБРАЖЕНИЯ\аквариум.bmp
E:\ИЗОБРАЖЕНИЯ\ ФОТО\Бия.jpeg
E:\ИЗОБРАЖЕНИЯ\ ФОТО\ Катунь.jpeg
E:\ ТЕКСТЫ\буква.txt
E:\ ТЕКСТЫ\ онегин.doc
E:\мелодия.mp3
E:\презентация.ppt
Мы получили 1/10 всей информации т.к нам открыли 1 из 10-ти букв
модель
на одну букву в леао
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.