===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18
3 6 7 это номера примеров которые записаны не верно
1)
<span>var </span>
<span>A:integer; </span>
<span>Begin </span>
<span>Readln(a); </span>
<span>If a<>0 then </span>
<span>If a<0 then writeln('a<0') else writeln('a>0') </span>
<span>Else writeln('a=0'); </span>
<span>End. </span>
2)
<span>Var </span>
<span>A,M,n:integer; </span>
<span>Begin
</span>readln(m);
readln(n);
<span>If m=n then writeln ('error') else </span>
<span>If m>n then a:=n else a:=m; </span>
<span>If (-20<=a) and (a<10) then writeln('Yes') else </span>
<span>Writeln('No');</span>
<span>End.</span>
В исходном файле 64 цвета: 2^N= 64 ---> N=6 бит для одного пикселя.
6*X - размер файла, где X - количество пикселей.
В черно - белом формате 2 цвета, (2^1=2) 1 бит - 1 пиксель.
6*X = X*1+50 *2^3
5*X=50*8
X=10*8 - количество пикселей
6*10*8 бит = 60 байт <--- ответ (размер исходного файла)