Uses crt;
Var p1,p2,p22,k,p3,i: integer;
b:array [1..6] of integer;
Begin
Writeln('введите трехзначное целое число -');
Readln(k);
p1:=k div 100;
p22:=k mod 100;
p2:=p22 div 10;
p3:=p22 mod 10;
writeln('p1= ',p1,'p2= ',p2,'p3= ',p3);
b[1]:=p1+p2*10+p3*100;
b[2]:=p1+p3*10+p2*100;
b[3]:=p2+p1*10+p3*100;
b[4]:=p2+p3*10+p1*100;
b[5]:=p3+p2*10+p1*100;
b[6]:=p3+p1*10+p2*100;
for i:=1 to 6 do
writeln('b[',i,']= ',b);
end.
Ответ
1) 1 первое условие говорит что Х не принадлежит отрезку АВ
2) 4 умножаем 12*256*128 - память в битах, делим на 8 получаем в байтах, делим на 1024 получаем килобайты
3) 2 16 символов можно закодировать в 4 бита т.е. 1/2 байта таким образом ответ 320
4) 1
5) 3 умножаем 3*96*68 делим на 8
<span>var n:integer;
begin
writeln("Введите пятизначное число :");
ReadLn(n);
if ((n div 10000)=(n mod 10)) and
(((n div 1000) mod 10)=((n mod 100) div 10))
then
writeln('---Введенное Число ПАЛЕНДРОМ---')
else
writeln('</span>---Введенное Число не является Палендромом---<span>');
Readln;
end.</span>
¬gv¬h
Лист Excel живой, можно подставить свои значения.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Снимаем пароль, копируем элементы, получаем результат.
