Заполните таблицу которая на фото за лучший ответ не спамить не красть мое время и потраченные если не знаете просто пропустите и доеб***сь до кого то еще

Решение Pascal

Delphi/Pascal

program Case5;

var

 N,A,B:Integer;

begin

 Write('Введите номер действия: ');

 Readln(N);

 Write('Введите число A: ');

 Readln(A);

 Write('Введите число B: ');

 Readln(B);

 Case N of

   1: Writeln(A+B);

   2: Writeln(A-B);

   3: Writeln(A*B);

   4: Writeln(A/B);

 end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

program Case5;

var

 N,A,B:Integer;

begin

 Write('Введите номер действия: ');

 Readln(N);

 Write('Введите число A: ');

 Readln(A);

 Write('Введите число B: ');

 Readln(B);

 Case N of

   1: Writeln(A+B);

   2: Writeln(A-B);

   3: Writeln(A*B);

   4: Writeln(A/B);

 end;

end.

Решение C

C

#include <stdio.h>

int main(void)

{

  system("chcp 1251");

  int n;

  float a,b;

  printf("N:") ;

  scanf ("%i", &n);

  printf("A:") ;

  scanf ("%f", &a);

  printf("B:") ;

  scanf ("%f", &b);

  switch (n) {

  case 1:

      printf("%f\n",a+b) ;

      break;

  case 2:

      printf("%f\n",a-b) ;

      break;

  case 3:

      printf("%f\n",a*b) ;

      break;

  case 4:

      printf("%f\n",a/b) ;

      break;

  }

  return 0;

}

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

#include <stdio.h>

int main(void)

{

  system("chcp 1251");

  int n;

  float a,b;

  printf("N:") ;

  scanf ("%i", &n);

  printf("A:") ;

  scanf ("%f", &a);

  printf("B:") ;

  scanf ("%f", &b);

  switch (n) {

  case 1:

      printf("%f\n",a+b) ;

      break;

  case 2:

      printf("%f\n",a-b) ;

      break;

  case 3:

      printf("%f\n",a*b) ;

      break;

  case 4:

      printf("%f\n",a/b) ;

      break;

  }

  return 0;

}

Объяснение:

Если ты хочешь, чтобы я написал программу на языке программирования Pascal, тогда держи:

1) Если ты говоришь про разряд единиц, тогда вот программа:

Program pofignanazvanieprogrammi_1_1;

Var a:integer;

Begin

 write('Введите число -> ');

 readln(a);

 writeln(a mod 10);

End.

А если про разряд сотен тысяч, тогда:

Program pofignanazvanieprogrammi_1_2;

Var a:integer;

Begin

 write('Введите число -> ');

 readln(a);

 writeln(a div 100000);

End.

2) Угу, это легче.

Program chto_2;

Var a,S:integer;

Begin

 S:=0;

 write('Введите число -> ');

 readln(a);

 while a>=0 do

 begin

   S:=S+(a mod 10);

   a:=a div 10;

 end;

 writeln(S);

End.