М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vadkirkov
vadkirkov
30.10.2020 08:22 •  Информатика

Запишите число 23 в 8 разрядном представлений и -23 в 16 разрядном представлений.

👇
Ответ:
olyadudina98
olyadudina98
30.10.2020

23(10)=27(8)

-23(10)=-17(16)

4,5(26 оценок)
Открыть все ответы
Ответ:
ксюнчик12
ксюнчик12
30.10.2020

program figyri;

uses crt,graphABC;

var xc,yc:integer;

   m:integer;

begin

xc:=windowwidth div 2;

yc:=windowheight div 2;

repeat

write ('Введите число');

read (m);

if m>2 then

   begin

     setpencolor(clGreen);

     rectangle(xc-100,yc-100,xc+100,yc+100);

     floodfill(xc,yc,clGreen);

     readkey;

    end;

if m<2 then      

   begin

     setpencolor(clRed);

     line (xc-100,yc+50,xc+100,yc+50);

     line (xc+100,yc+50,xc,yc-100);

     line(xc,yc-100,xc-100,yc+50);

     floodfill(xc,yc,clRed);

     readkey;

    end;

if m mod 2=0 then

    begin

     setpencolor(clBlue);

     circle (xc,yc,100);

     floodfill(xc,yc,clBlue);

     readkey;

    end;

until not(m in [1..4]);

end.

как то так

если введенное число больше двух, то квадрат

если меньше, то треугольник

если кратно, то круг

можно выбрать по разному, будет ли введенное число больше или меньше какого то числа, будет ли оно положительным или отрицательным и т.д

4,4(76 оценок)
Ответ:
ajshshdj
ajshshdj
30.10.2020

```

var a:array[1..100,1..100]of integer;

N, M, i, j, mini, minj, maxi, maxj :integer;

 

begin

write('N, M -> ');

readln(N, M); {считываем размер матрицы}

write('Input matrix -> ');

for i:=1 to N do for j:=1 to M do

begin

 write('A[',i,',',j,'] -> ');

 readln(a[i, j]);

end; {считываем саму матрицу}

readln;

mini:=1;

minj:=1;

maxi:=2;

maxj:=2;

for i:=1 to N do for j:=1 to M do if a[i,j] > a[maxi, maxj] then

begin

 maxi := i;

 maxj := j;

end else if a[i, j] < a[mini, minj] then

begin

 mini := i;

 minj := j;

end;

writeln('MAX = A[',maxi,',',maxj,'] = ', a[maxi, maxj]);

writeln('MIN = A[',mini,',',minj,'] = ', a[mini, minj]);

readln;

end. ```

4,7(6 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ