Добавил:
zord
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
real a, c, t, b, f
read (*,*) a,c
integer n
f(b)=(1+b**(1./3))*(1+b**(1./4))*(1+b**(1./5))*(1+b**(1./6))
read (*,*) a, c
if (a<=0.and.c<0) then
write (*,*) 'nevernie vhodnie dannie'
end if
t=(1+a)*f(a)*f((c/a))
write (*,*) 't=', t
end
read (*,*) a,c
integer n
f(b)=(1+b**(1./3))*(1+b**(1./4))*(1+b**(1./5))*(1+b**(1./6))
read (*,*) a, c
if (a<=0.and.c<0) then
write (*,*) 'nevernie vhodnie dannie'
end if
t=(1+a)*f(a)*f((c/a))
write (*,*) 't=', t
end
Соседние файлы в папке 5var