<em>
</em><em />В приведенной последовательности ошибка, там не 18, а 17.
<em>
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,c,d:integer;
(a,b,c):=(1,1,1);
Print(a,b,c);
for var i:=1 to 20 do begin
d:=a+b+c; Print(d);
(a,b,c):=(b,c,d)
end;
Writeln
end.
<u>Результат</u>1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329
Var
k,x:integer;
Begin
readln(x);
k:=2*x;
writeln('2*x = ',k);
k:=3-(5*x);
writeln('3-(5*x)= ',k);
k:=2+x-6;
writeln('2+x-6=',k);
<span>End.</span>
А будет равно 10, так как а > 5, но b не больше a
Какой-то старенький комп (512 кб видуха). Ну а если серьезно, то на хранение информации о цвете 1 точки потребуется 1 байт,
так как 256=2⁸. А 8 бит - 1 байт.
Одна страница займет 640*480 = 307200 Байт = 300 Кбайт. Значит в память влезет только одна страница. На вторую места не хватит.