Написать программу на паскалеabc y=1+(x/1! )+((x^2)/2! )++((x^n)/n! )

ответ:

begin

read(x,n);

y: =1;

p: =1;

f: =1;

for i: =1 to n do

begin

p: =p*x;

f: =f*i;

y: =y+p/f;

end;

write(y);

end.

#define _USE_MATH_DEFINES

#include <iostream>

#include <iomanip>

using namespace std;

double area, circumference;

void circle(double);

int main()  {

    locale::global(locale(""));

    cout << " Введите радиус:    ";

    double radius;

    cin >> radius;

    circle(radius);

    streamsize accuracy = 8;

    cout << " Длина окружности:  " << setprecision(accuracy) << fixed << circumference << endl

         << " Площадь круга:     " << area << endl;

    cin.get(); cin.get();

    return 0;

}

void circle(double _radius)  {

    circumference = 2 * M_PI * _radius;

    area = M_PI * _radius * _radius;

}

Вроде бы так, если я тебе дай лучший ответ =) [с новым годом]

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

var

  ch: char;

begin

  write('введите номер дня недели: ');

  readln(ch);

  write('это ');

  case ch of

      '1' : writeln('понедельник');

      '2' : writeln('вторник');

      '3' : writeln('среда');

      '4' : writeln('четверг');

      '5' : writeln('пятница');

      '6' : writeln('суббота');

      '7' : writeln('воскресенье');

      end;

  readln

end.

(это 4)