1. i:=21 s:=6
3. Цикл будет выполняться 3 раза
s:=9 a:=3 b:=6
4. Цикл будет выполняться 2 раза
s:=2 i:=0
1)128×64×8=65536 бита
2)65536÷8=8192 байт
3)8192÷1024=8 килобайт
Ответ: В) 8 Килобайт
Можешь сам просто в калькуляторе программиста посчитать
Картинка должна быть в папке с программой и быть в формате 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.