1)
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.
2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.
7 Кбайт=7168 байт=57344 бит
K-количество пикселей
K=64*128=8192
V=K*i,где i-это глубина цвета в битах
i=V/K=57344/8192=7 бит-это приходится на один пиксель
N=2^i, где N-количество возможных цветов в палитре
N=2^7=128 цветов.
Ответ: 128
число пикселей на странице: 800 * 600 = 480000
у нас 2 страницы: 2 * 480000 = 960000 - число пикселей на двух страницах
объем видеопамяти: 32 * 960000 = 30720000 бит = 3840000 байт = 3750 Кбайт
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure NOD(a,b:integer; var r:integer);
begin
while b>0 do (a,b):=(b,a mod b);
r:=a
end;
begin
var a,b,c,d:integer;
Write('Введите четыре натуральных числа через пробел: ');
Read(a,b,c,d);
var p,q,r:integer;
NOD(a,b,p); q:=(a*b) div p; // НОК(a,b)
NOD(c,d,p); r:=(c*d) div p; // НОК(c,d)
NOD(q,r,p); r:=(q*r) div p; // НОК(a,b,c,d)
Writeln('НОК=',r)
end.
<u>Пример</u>
Введите четыре натуральных числа через пробел: 15 23 36 150
НОК=20700