Var
count_num:integer;
number:real;
begin
count_num:=0;
repeat
readln(number);
writeln('Введенное число: ',number);
if (number <> 0) then Inc(count_num);
until (number =0);
writeln('Количество введеных чисел: ', count_num);
end.

0 0

4 года назад

Могут ли буквы служить цифрами? Приведи пример.

olgashabelnikova

Могут, Римская система счисления: I, V, X; системы счисления с основанием 8, 16 и пр.

0 0

4 года назад

Какая система счистления числа 110011 даёт 15 в десятичной?

Dinvinchesters

Двоичная, но получается 51, а не 15. может вы перепутали?

0 0

1 год назад

Может кто РАССКАЗАТЬ как сложить эти два числа: 17(8) и 17(16)?

Ekaterinka [47]

Нужно перевести оба числа в (10) и сложить
7*8^0+1*8^1=7+8=15(10)
7*16^0+1*16^1=7+16=23(10)
23+15=38

0 0

4 года назад