Ну, для начала можно составить табличку. Десят. - Восьм. - Шестн 0-000-0000 1-001-0001 2-010-0010 3-011-0011 4-100-0100 5-101-0101 6-110-0110 7-111-0111 Далее, в восьмеричной максимальное число 7, поэтому буду сразу писать шестн. 8-1000 9-1001 A-1010 B-1011 C-1100 D-1101 E-1110 F-1111 Итак, когда у нас есть двоичное значение каждых чисел, выполняем перевод: 726=111010110 Теперь справа налево, выделяем по 4 цифры, и смотрим в таблицу : 0110 - 6 1101 - D 0001 - 1 ; У нас получилось так : 726=111010110=1D6 Вроде, понятно объяснил :)
program summa; var a:= 0; var b:= 0; begin writeln('Введите число'); readln(a); if a>0 then repeat {повторяй} a:= a+b; writeln('Введите еще число'); readln(b); until (b<0); {до тех пор, пока условие не будет истинным} writeln('Было обнаружено отрицательное число'); if a>0 then writeln('Полученная сумма: ',a) else writeln('Отрицательное число было первым'); readln; end. Программа на выходе сообщает: Введите число 3 Введите еще число 45 Введите еще число 9 Введите еще число -8 Было обнаружено отрицательное число Полученная сумма: 57
Десят. - Восьм. - Шестн
0-000-0000
1-001-0001
2-010-0010
3-011-0011
4-100-0100
5-101-0101
6-110-0110
7-111-0111
Далее, в восьмеричной максимальное число 7, поэтому буду сразу писать шестн.
8-1000
9-1001
A-1010
B-1011
C-1100
D-1101
E-1110
F-1111
Итак, когда у нас есть двоичное значение каждых чисел, выполняем перевод:
726
Теперь справа налево, выделяем по 4 цифры, и смотрим в таблицу :
0110 - 6
1101 - D
0001 - 1 ;
У нас получилось так :
726
Вроде, понятно объяснил :)
var a:= 0;
var b:= 0;
begin
writeln('Введите число');
readln(a);
if a>0 then
repeat {повторяй}
a:= a+b;
writeln('Введите еще число');
readln(b);
until (b<0); {до тех пор, пока условие не будет истинным}
writeln('Было обнаружено отрицательное число');
if a>0 then
writeln('Полученная сумма: ',a)
else writeln('Отрицательное число было первым');
readln;
end.
Программа на выходе сообщает:
Введите число
3
Введите еще число
45
Введите еще число
9
Введите еще число
-8
Было обнаружено отрицательное число
Полученная сумма: 57