Var
A,S:real;
i:integer;
Begin
A:=5;
S:=A;
For i:= 1 to 6 do
Begin
A:=A*1.1;
S:=S+A;
End;
WriteLn(A:0:3,' ',S:0:3)
End.
Вариант а) отпадает, так как в 1 строке получим произведение 7 единиц=1, а должно получиться 0
Вариант б) отпадает, так как1 строке получим сумму 7 единиц=1, а должно получиться 0
В варианте В) прошла 1 строка, получили в итоге 0, но не прошла вторая строка. Получается 1, а должно быть равно 0
Остается вариант Г)
Если подставить значения, то все строки прошли тест.
Ответ: Г
256=2^8 --> 8 бит для кодировки одного пикселя
F =15*15*8 бит =1800 бит = 15*15 байт =225 байт
Надеюсь понятно, заранее сори за качество:)