Переведите целое число из десятичной системы счисления в двоичную, число 181, с подробным объяснением, - id934916520220419 от сева167 19.04.2022 19:06

Question

Информатика: Переведите целое число из десятичной системы счисления в двоичную, число 181, с подробным объяснением, . никак не могу тему усвоить.

сева167 · Accepted Answer

Может это

Program TemperatureInDecember;

Uses crt;

Var tempDecember : array[1..31] of integer;

i, countPlus, countZero, countMinus : integer;

begin

Clrscr;

countPlus := 0;

countZero := 0;

countMinus := 0;

for i:= 1 to 31 do

begin

if tempDecember = 0 then countZero += 1

else if tempDecember > 0 then countPlus += 1

else countMinus += 1;

end;

writeln('В декабре дней с нулевой температурой было: ', countZero);

writeln('В декабре дней с отрицательной температурой было: ', countMinus);

writeln('В декабре дней с положительной температурой было: ', countPlus);

readln;

end.

Плохо отобразилось, вот скрин:

Переведите целое число из десятичной системы счисления в двоичную, число 181, с подробным объяснением, . никак не могу тему усвоить.