Var n: Word;
begin
write('Введите число ');
readln(n);
write((n mod 10 = 3) or (n div 10 mod 10 = 3) or (n div 100 = 3));
readln;
end.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
1)
2101 в двоичной в форме 100000110101
для него нужно 12 разрядов, а в 2-х байтовой ячейке их 16 поэто дописываем спереди 4 нуля.
Ответ: 0000100000110101.
2)
для этого нужно записать число в двоичном виде и записать для него дополнительный код и потом перевести в 16-ю сисему счисления
0000100000110101 пр.
<span>обратный код это код в котором все 0 заменены на 1, а 1 на 0</span>
1111011111001010 обр.
<span>чтобы получит дополнительный код нужно прибавить 1</span>
1111011111001011 доп.
<span>теперь смотрим по 4 разряда и заменяем 1 символом в 16 системе счисления</span>
в 16- системе счисления это F7CB
3)F840 = 63552;
max1 - индекс максимального четного элемента
max2 - индекс максимального нечетного элемента
Var
mas: array[1..100] Of integer;
max1,max2,j: integer;
Begin
For j:=1 To 100 Do
Begin
mas[j] := random(100);
If j=1 Then max1 := j
Else
If (mas[j]>mas[max1])And(mas[j] Mod 2=0) Then max1 := j;
If j=1 Then max2 := j
Else
If (mas[j]>mas[max2])And(mas[j] Mod 2=1) Then max2 := j;
write(mas[j],' ');
End;
writeln;
write(mas[max1],'[',max1,'] - ',mas[max2],'[',max2,'] = ',mas[max1]-mas[max2]);
End.
Нач.
ввод R,A
если А>или= , то "треугольник поместится" , иначе "не поместится".
конец.
овал
параллелограмм
ромб
2 параллелограмма ( в одном поместится в другом нет)
овал