1.
var f:integer;
begin
read(f);
if f mod 2<>0 then
f:=6*f
else
f:=f+29;
writeln(f);
<span>end.
2.
var i,n,k:integer;
begin
read(n);
k:=1;
for i:=2 to n do
k:=k*i;
writeln(k);
<span>end.</span></span>
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a*b>0 then Writeln('Числа одного знака')
else Writeln('Числа разных знаков')
end.
Var
x, y, r: real;
begin
read(x, y, r);
if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))
or ((x < 0) and (y < 0) and (x + y >= -r)) then
write('да')
else
write('нет');
end.
65536 цветов = 2^16
глубина цвета 16 бит
Объём изображения
1024*768*16 = 12582912 бит
12582912 бит / 8 = 1572864 байт / 1024 =1536 Кбайт / 1024 = 1,5 Мб
Изображение на мониторе займёт в видеопамяти 1,5 Мб
B = 2468 mod 100 * 10 = 240
A = 2468 div 1000 + 240 = 242