логорифм Опции

[fox]

решите (2*с+lg(d)*51)/(d-a-1) надо решить чтоб была хоть одна подпрограмма.Здесь надо вычислить это арифметическое выражение для данных в форматах real (переменные a,b) и integer все остальные переменые.

[Артемий]

Теги [code][code]
(перед вторым code слэш поставь)
Прочти второй пункт правил раздела.

Сообщение отредактировано: Артемий - 3.06.2007 10:06

[fox]

[quote name='Артемий' post='105160' date='3.06.2007 10:05']
Теги

Код

[code]
[/quote]
спасибо поня ша накатаю :wink:  :wink:

[size=1][b]Добавлено через [/b] 18 мин. [/size]
вот чё я наделал:
[code=pas]program ei3;
var
c,k:integer;
a,d:real;
procedure nod(c,d,a:integer;var k:integer);
begin
k:=(2*c+lg(d)*51)/(d-a-1);
writeln(выражение равно k', k);
readln(k);
end;
begin
writeln('ввести a,d,c');
read(a,d,c);
nod(c,d,a,k);
readln;
end.