как записать в паскале эти 2 формулы?

[33artem]

STDC помоги как записать?

[__STDC__]

exp(ln(49)*(1-ln(2)/ ln(10))+exp(ln(5)*(-ln(4)/ln(10)))

что-то вроде такого

**
если я в кол-ве скобок не ошибся =)

[33artem]

STDC вот еще вопрос
помниш ты мне помог с задачкой сумма цифр 5 значного числа
var
s:string;
sum,i:integer;
begin
readln(s);
for i:=1 to length(s) do
sum := sum + sqr(ord(s[i]) - 48);
writeln(sum);
readln;
end.
так вот препод мне сказал чтоб я использовал вот эту формулу
abcde=a*10000+b*1000+c*100+d*10+e
и чтоб программа считала и 4 числа и 3

[__STDC__]

Сообщение от 33artem

так вот препод мне сказал чтоб я использовал вот эту формулу
abcde=a*10000+b*1000+c*100+d*10+e
и чтоб программа считала и 4 числа и 3

оО зачем?? 4-х-значные? и трех?

***
бред... зачем такие сложности..

var
	n,sum:integer;
begin
	readln(n);
	sum := 0;
	while (n mod 10 > 0) do begin
		sum := sum + sqr(n mod 10);
		n := n div 10;
	end;
	writeln(sum);
	readln;
end.

***
если еще вместо integer написать int64 - будет 9-значные считать

[33artem]

ну вот спроси его бесит прям прога работает считает че ему есче надо
может как то так
Program xa;
uses
crt;
var
n:Longint;
sum,i,k:integer;
begin
repeat
clrscr;
Writeln('VVedite 4islo');
Readln(n);
until (n>0) and (n<100000);
while n>0 do
begin
k:=n mod 10;
sum:=sum+k*k;
n:=n div 10;
end;
Writeln(sum);
readln
end.

[__STDC__]

см. выше, я дописал

[33artem]

угу вижу спосиб

[33artem]

Сообщение от __STDC__

оО зачем?? 4-х-значные? и трех?

***
бред... зачем такие сложности..

var
	n,sum:integer;
begin
	readln(n);
	sum := 0;
	while (n mod 10 > 0) do begin
		sum := sum + sqr(n mod 10);
		n := n div 10;
	end;
	writeln(sum);
	readln;
end.

***
если еще вместо integer написать int64 - будет 9-значные считать

потом мне препод раз ты такой умник на те сверху еще 9 задач=)

[33artem]

и я опять сюды с кучей вопросов

[__STDC__]

Сообщение от 33artem

потом мне препод раз ты такой умник на те сверху еще 9 задач=)

имхо, это реакция человека, который не до конца разбирается в предмете.. между прочим, первый вариант позволял рассчитывать более длинные числа... т. е. если сейчас имеется ограничение на размер исходного числа, раньше имелось ограничение только на сумму цифр..