1.
var
i,n:integer;
begin
read(n);
for i:=1 to n do
write(i,', ');
end.
2.
var
i,n:integer;
begin
n:=9;
for i:=1 to n do
writeln(i,'*',n,'=',n*i);
readln(i);
end.
1) 1800 символов- утеряно будет
1800 байт или 14 400 бит
<span>2) остается 59 400 символов, 59 400 байт или 475 300 бит</span>
Картинка должна быть в папке с программой и быть в формате BMP
uses
graphabc;
var
n: string;
b: Picture;
s:integer;
begin
writeln('введите расстояние до зеркала');
readln(s);
write('Введите имя файла рисунка: ');
readln(n);
window.Clear;
b := Picture.Create(n);
b.Load(n);
b.Draw(50, 50);
b.FlipHorizontal;
b.Draw(50+2*s,50);
end.