FORTRAN 90На паскаль переводится очень легкоprogram for_znanijaimplicit nonereal :: a,b,dx,x,finteger :: kprint *,'Введите левую границу'read *, aprint *,'Введите правую границу'read *, bprint *, 'Введите шаг'read *, dxx=ak=0do while (x<=b)print '(a,f5.2,a,f8.4)','При x=',x, ' значение функции f=',ff=tan(x)x=x+dxenddoendНа скриншоте тоже моя программа, но написана ранее, поэтому там есть небольшие изменения.Справа проверка на работоспособность. Функция tg(x).