Var a,b,c,n:integer;begin readln(n); if n <= 2 then writeln(1) else begin a := 1; b := 1; while n > 2 do begin c := a + b; a := b; b := c; dec(n) end; writeln(c); end;<span>end.</span>
var
x,a, b: integer;
begin
readln (x);
a:= x div 10;
b:= x mod 10;
writeln ('сумма=', a+b);
writeln( ' произведение =', a*b);
end.
По правилам мы знаем, что на один пиксель трубуются 2 байта.
1) 1024 х 768 х 2 = 1 572 864 (байта) - на разрешение 1024 х 768
--------
Ответ : 1 572 864 байта
Переводим размер в дюймы. 1 дюйм возмем примерно за 2.5 см.
Тогда
10/2.5=4
15/2.5=6
Если в каждом дюйме 600 пикселей, то:
4*600=2400
6*600=3600
Изображение в пикселях: 2400*3600=8640000 пикселей.
На каждый пиксель по 3 байта и того у нас 25920000 (байт) = 24,72 (мегабайт)