Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
Sqrt(x); это корень квадратный из х
65 536 - количество цветов в палитре.
65 536 =2^(16) ---> 16 бит - один пиксель
1280 * 1024 * 16 = 2^8 * 5 *2^(10) * 2^4 (бит) = 5*2^(22) (бит)=
=5*2^(19) байт = 5*2^9 Кбайт =2,5* 2^(10) Кбайт = 2,5 Мбайт