Регистрация
polina5m
17.08.2022 07:23
Информатика
Есть ответ 👍

Перевести числа 12, 154 и 1412 из десятичной системы счисления в двоичную

297
395
Посмотреть ответы 1

Ответы на вопрос:

zeynab97
zeynab97
4,6(9 оценок)

var

  a, n, s, i: integer;   //n - количество, s - сумма, a - вводимое число

 

begin

  a: = 1;

  while a mod 5 < > 0 do

  begin

    writeln('введите целое число');

    readln(a);

    if a > 10 then

    begin

      inc(n);   //увеличиваем счетчик на 1

      s: = s + a;

    end;

  end;

  writeln('количество чисел, больших 10:   ', n, ', сумма чисел, больших 10:   ', s);

  write('делители числа ', a, ':   ');

  for i: = 2 to a do

    if a mod i = 0 then write(i, '   ');

end.

Популярно: Информатика