Показать сообщение отдельно
Старый 17.03.2011, 22:11   #1 (permalink)
павля
незнайка:)
 
Аватар для павля
 
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
Red face Помогите, пожалуйста, исправить программку на Паскале

задание:
ввести цифры трехзначного восьмеричного числа. Вывести значение этого числа в десятичной системе счисления. (только с помощью линейного алгоритма).

подскажите что следует изменить в этой программке...?..:

program _;
uses crt;
var
x,a,b,c,d,k: integer
begin
clrsgr;
writeln ('введите число в восьмеричной системе x');
readln (x);
a:=x div 100;
k:=x-a*100;
b:=k div 10;
c:=x mod 10;
writeln (a);
writeln (b);
writeln (c);
d:=a*64+b*8+c
writeln ('d=',d);
readln;
end.



заранее благодарна...
павля вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070