<em>E:\Видеозапись.avi</em>
<em>E:\График.xls</em>
<em>E:\Изображения\Аквариум.bmp</em>
<em>E:\Изображения\фото\Бия.jpeg</em>
<em>E:\Изображения\фото\Катунь.jpeg</em>
<em>E:\Тексты\буква.txt</em>
<em>E:\Тексты\цифры.doc</em>
<em>E:\Онегин.doc</em>
<em>E:\Мелодия.mp3</em>
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
1. Режим в котором глубина цвета 24 бита на пиксель называется True Color или истинный цвет.
2. Черно белое изображение занимает меньше места из представленных трех. Так как глубина цвета - 2 бита на пиксель. Третье изображение займет больше места на диске чем первые два. Причина - самая большая глубина цвета.
Program test;
const s=45;
begin
writeln(sin(s):0:3);
end.