Перевести числа из десятичной системы счисления в двоичную: 1. 238 10 2. 183 10 Перевести числа из восьмеричной - id1752960220230107 от polinaabramova10 07.01.2023 20:02

Question

Информатика: Перевести числа из десятичной системы счисления в двоичную: 1. 238 10 2. 183 10 Перевести числа из восьмеричной и шестнадцатеричной систем счисления в двоичную: 1. 1E5A h 2. 2753 8 Выполнить сложение двоичных чисел: 1. 10101 2+11011 2 2. 11010 2+10110 2 !​

polinaabramova10 · Accepted Answer

var

n, max, count, contrl, max2: integer;

begin

contrl := 0;

max := 0;

Writeln('Введите числа: ');

Readln(n);

while n <> 0 do

begin

Inc(count);

if n>max then begin max2:=max; max:=n end

else if n > max2 then max2 := n;

Read(n);

end;

max2*=max;

Writeln('Введите контрольное значение: ');

Read(contrl);

Writeln('Получено: ', count, ' чисел');

Writeln('Получено контрольное значение: ', contrl);

Writeln('Вычисленное контрольное значение:: ', max2);

if contrl = max then Writeln('Контроль пройден')

else Writeln('Контроль не пройден');

end.

MOGZ ответил