Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.
Объяснение:
1 задание это означает что он будет состоять из 352 строк
2 бит
3 64000 пикселя
4. 1,92 мегапикселя
Ответ
2F516₁₆<span> = </span>193<span>814</span>₁₀
1) 55 10000111
2) 52 10010111
3) 333 111101001010
4) CF 1111110000100001
5) 3D29C
6) 1761221522
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.