Всего на сайте:
282 тыс. 988 статей

Главная | Информатика

Readln(x);  Просмотрен 165

a := 0; b := 1;

while x > 0 do begin

a := a + 1;

b := b * (x mod 8);

x := x div 8;

End;

Writeln(a); write(b);

End.

30) (Д.Ю. Мельникова, г. Саратов) Ниже записана программа. Получив на вход число , эта программа печатает два числа, и . Укажите наименьшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 10.

var x, a, b : integer;

Begin

Предыдущая статья:Readln(x); Следующая статья:Readln(x);
page speed (0.0119 sec, direct)