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

Найдите все трехзначные числа которые при делении на 4 на 5 на 6 в остатке 2

👇
Ответ:
drus9070
drus9070
08.02.2023
Var i : Integer;
Begin
  For i:=100 to 999 do
    If (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) then Writeln(i);
end.

Результат:
122
182
242
302
362
422
482
542
602
662
722
782
842
902
962
4,6(89 оценок)
Открыть все ответы
Ответ:
Aleksandrya
Aleksandrya
08.02.2023

Десятичная  двоичная         восьмеричная           шестнадцатиричная

1)

10                 1010                              12                                      A

18                 10010                             22                                     12

322               101000010                   502                                  142

2)

10                1010      

74                                                         112      

92                                                                                                5C  

Числа снизу обозначают систему счисления

4,6(79 оценок)
Ответ:
nadya5745
nadya5745
08.02.2023

и какая вероятность что пользователь не ошибется?)))

 

program i_guess_number;
uses crt;
var changes: array [1..2,1..10] of integer;
i,op,n:integer;
s:string;
res:real;

BEGIN
    randomize;
    writeln("Загадайте число");
    n := 0;
    repeat
        n := n+1;
        i := random(10);
        op := random(4);
        
        case op of
            1: s := "Прибавте ";
            2: s := "Отнимите ";
            3: s := "Умножте на ";
            else s := "Поделите на ";
        end;
        
        writeln(s, i);
        changes[1,n] := op; {запоминаем действия}
        changes[2,n] := i;
    until n = 10;
    
    writeln("Что вышло?");
    readln(res);
    
    for i := n downto 1 do { производим обратные действия }
    begin
        case changes[1,i] of
            1: res := res - changes[2,i];
            2: res := res + changes[2,i];
            3: res := res / changes[2,i];
            else res := res * changes[2,i];
        end;
    end;
        
    writeln("Вы загодали ",res);
END.

 

 

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