1)
Program kpa6ya;var x,y,N:integer;BEGINwriteln('x=');readln(x);writeln('y=');readln(y);writeln('N=');readln(N);if (N<1) and (N<2*108) then begin writeln('BBeguTe oT 1 go 2*108 4ucJlo N, a He ',N); readln(N); end;writeln(N/(x+y),' - BpeM9');END.
10 раз будет выполняться цикл.
Смотри во вложении.
хм, возможно, что если фирма В получит максимальную прибыль, то фира С её не сможет получить по логике.... Значит вариан Б
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
16=2^4 => 4 бита на пиксель
72*72*4=20736 бит=2592 байт=3 кб