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

Определить является ли четырехугольник с задаными сторонами прямоугольником

👇
Ответ:
AngelinaGi2006
AngelinaGi2006
22.12.2022
If(a = c and b = d) then writeln('yes')
else writeln('no');

где a b c d - стороны четырехугольника
4,6(56 оценок)
Открыть все ответы
Ответ:
natalyacomandi
natalyacomandi
22.12.2022
Будут вопросы - задавайте.

type a = array[0..999] of Integer;
var B, num: a; var N, k: integer; 
 
procedure SimpleNumber(B: a);
begin
    for var i := 0 to N-1 do begin
        for var j := 2 to 9 do begin
            if B[i] mod num[j] <> 0 then
                k += 1;
        end;
        if k = 8 then begin
             write('Есть простое число');
            break;
        end
        else if (k <> 8) and (i = N-1) then 
           write('Нет простых чисел');
        k := 0;
    end;
end;

begin
    for var i := 2 to 9 do begin
        num[i] := i;
    end;
    read(N);
    for var i := 0 to N-1 do 
        read(B[i]);
    SimpleNumber(B);
end.
4,5(11 оценок)
Ответ:
dkogotyzeva
dkogotyzeva
22.12.2022

1)-63,611=-63611*10^-3  

2)60.509 =60509*10^-3

 

1)16-ой

 

63.611

 63/16   =03F

 .611=9C6

и того -   03F 9C6

 

2)60= 3С6

509= 824 

 и того  3С6 824  

 

 5DB0000=16^7*4 + 16^6*5 + 16^5*13 + 16^4*11 + 16^3*0 + 16^2*0 + 16^1*0 + 16^0*0 = 1073741824 + 83886080 + 13631488 + 720896 здесь нулли  = 1171980288

 

C88B6000   =16^7*12 + 16^6*8 + 16^5*8 + 16^4*11 + 16^3*6 = 3364577280

 

 

F6E5 = 16^4*15 + 16^3*6 + 16^2*14 + 16^1*5 =1011280

 

8D7=  16^2*  8 + 16^1*  13 + 16^0*7 = 2048 + 208 + 7 = 2263 

 

 

 

 

 

 

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