1) 8, 10, 16
2) 11111(2), 37(8), 31(10), 1F(16)
3) -61(10) = 11000011(2); 99(10) = 1100011(2)
4) 892310
5) 32
6) 1809
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
Условия попадания в область:
var
x,y:real;
begin
Write('Введите координаты точки (x,y): ');
Readln(x,y);
if (x>3) and (y>2) then Writeln('Точка попадает в область')
else Writeln('Точка не попадает в область')
end.
{
Для второго условия в if надо записать
(x<-2) and (y<-4)
}
Выбирать из чего? Прикрепи фото