var
a,b:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.
Ответ:
это твой год рождения у меня тож самое только 2005 года
Степень числа.
Например, 1*10^2+4*10^1+3*10^0+5*10^-1
будет записана как 1*
+4*
+3*
Мобильный телефон, планшет
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg