В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

1. Найдите сумму следующих чисел в двоичной системе счисления: а) 13234 и 5127
б) 12406 и 41810
в) 7678 и 111223

2. Найдите разность следующих чисел в двоичной системе счисления:
а) 13317 и 5127
б) 23125 и 4347
в) 30214 и 101103

3. Найдите произведение следующих чисел в двоичной системе счисления:
а) 1024 и 1113
б) 416 и 100102
в) 428 и 304

4. Найдите частное следующих чисел в двоичной системе счисления:
а) 21304 и 1103
б) 111436 и 2235
в) 7708 и 225

Показать ответ
Ответ:
89521706957
89521706957
22.03.2022 21:37

PASCAL ABC

program z1;  

var a,s:integer;  //описание переменных

begin

readln(a);  //вводим первое число

s:=0;  //начальное значение суммы

while a<>0 do //условие ввода (ввод оканчивается нулем)

 begin

   if (a mod 10=4) and (a mod 6=0) then s:=s+a;  //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

   readln(a) //заново вводим число

 end;

writeln(s)  //вывод суммы, когда весь цикл завершится

end.

P.S не особо понимаю, почему с таким вводом, такой ответ у тебя получается

0,0(0 оценок)
Ответ:
Beario
Beario
28.04.2020 19:12

program array4x4;

const

 D = 4;    // размерность массива, можно менять на любое другое

var

 A: array [1..D, 1..D] of Integer;

 i, j, s, smax, jmax, smin, imin: Integer;

begin

 Randomize;

 for i := 1 to D do begin

   WriteLn;

   for j := 1 to D do begin

     A [i, j] := Random (21) - 5;

     Write (A [i, j] :3, ' ');

   end;

 end;

 smax := 0;

 jmax := 0;

 for j := 1 to D do begin

   s := 0;

   for i := 1 to D do begin

     s := s + Abs (A [i, j]);

   end;

   if s > smax then begin

     smax := s;

     jmax := j;

   end;

 end;

 WriteLn;

 WriteLn ('Столбец № ', jmax, ' Сумма модулей = ', smax);

 imin := 1;

 smin := MaxInt;

 for i := 1 to D do begin

   if A [i, jmax] < smin then begin

     smin := A [i, jmax];

     imin := i;

   end;

 end;

 WriteLn ('Наименьший элемент: ', imin, ' : ', jmax, '  Равен = ', smin);

 ReadLn;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота