Var
a: integer;
begin
readln(a);
if (a mod 10 = a div 100) or (a mod 10 = a div 10 mod 10) or (a div 10 mod 10 = a div 100) then
writeln('Есть')
else
writeln('Нет');
<span>end.</span>
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 Мбайт
А)память
б)опеоативнная память
в)долговременная память
г)носитель иформации
Интернет вреден для глаз но при этом можно узнать много полезной информаций а если сидеть по 15 мин.вдень не чего не встанет можночитать книги проходить тесты и естественно поиграть в логические игры
//Pascal ABC.NET v3.1 сборка 1172
Const
n=3;
Var
ma:array[1..n,1..n] of real;
i,j:integer;
r:real;
begin
randomize;
r:=1;
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=random(1,10);
if j mod 2<>0 then r:=r*ma[i,j];
write(ma[i,j]:4);
end;
end;
writeln;
writeln('Res=',r);
end.
Пример работы кода<span>:
</span>Matrix:
5 3 3
2 2 5
10 2 4
<span>Res=6000</span>