Перевести из десятичной в двоичную числа 145 268 554 778

Question

Информатика: Перевести из десятичной в двоичную числа 145 268 554 778

arisha20summer · Accepted Answer

Var
a: integer; //a - вводимое число
n, s: integer; //n- количество введенных чисел, s - сумма этих чисел

begin
n:= 0; //обнуляем счетчик
s:= 0;
a:= 1; {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}
while a <> 0 do
begin
writeln('Введите целое число');
readln(a);
if a <> 0 then //Чтобы при подсчете среднего арифметического не учитывался 0
begin
n:= n + 1;
s:= s + a;
end;
end;
writeln('Среднее арифметическое введенных чисел: ', s / n);
end.

MOGZ ответил