Написать подпрограмму для нахождения значения числа е с ряда с заданной точностью (e+1+1/1! +1/2! +1/3! + 1/n! + in fotran

program Expon

Real(8) :: s = 1, f = 1, eps

Integer :: i = 1

Read *, eps

do while(abs(1 / f) > eps)

   f = f * i

   s = s + 1 / f

   i = i + 1

enddo

Print *, 'e = ', s

end Program Expon

Первое задание:

1) 3

2) 6

3) 5

Второе задание:

1) 1

2) 3

Третие:

//Язык программирования java

package com.niksonbinsk;

import java.util.ArrayList;

import java.util.Scanner;

public class Main {

   public static void main(String[] args) {

       int space_left = 0;

       int count = 0;

       Scanner s = new Scanner(System.in);

       ArrayList<Integer> str = new ArrayList<>();

       while(space_left != 30){

           System.out.println("Enter next num:");

           str.add(s.nextInt());

           space_left++;

       }

       for(int i =0;i<30;i++){

           if(str.get(i) % 2 == 0){

               count++;

           }

       }

       System.out.println(count);

   }

}

Объяснение:

Romanovich (первая буква большая)

Кодирование в ASCII (American standard code for information interchange):

Двоичный код: 01010010 (R), 01101111 (o), 01101101 (m), 01100001 (a), 01101110 (n), 01101111 (o), 01110110 (v), 01101001 (i), 01100011 (c), 01101000(h)

Кодирование в КОИ-8 («Код Обмена Информацией 8-битовый», таблица разработана для кодирования букв кириллицы)

Двоичный код: 11111010 (З), 11000001 (а), 11010111 (в), 11010100 (т), 11010010 (р), 11000001 (а), 00100000 (пробел), 11010111 (з), 11001001 (и), 11001101 (м), 11000001 (а), 00101110 (. точка)

Десятичный код этой фразы: 250, 193, 215, 212, 210, 193, 32, 215, 201, 205, 193, 46