решить ошибку
Пишу сайт на

Решение 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;

}

Объяснение:

Объ

Дихотомические:  

Дихотомические:  

Пол

(мужской vs. женский)

Недихотомические:

Национальность  

(американец/китаец/ и т.д) Дихотомические:  

Состояние здоровья

(здоровый vs. больной),

Красота

(красивый vs.уродливый)

Недихотомические:

Мнение  

('полностью согласен'/  

'скорее согласен'/  

'скорее несогласен'/  

'полностью несогласен') Дата  

(с 1457 до н. э.  

до 2013 н.э)

Широта

(от +90° до −90°)

Температура

(от 10 °C до 20 °C)

Возраст  

(от 0 до 99 лет)

Мера центральной тенденции  

Мода

Медиана

Среднее арифметическое

Среднее геометрическое

Метрическая или  

нет  

Неметрическая (качественная)

Неметрическая (качественная)

Метрическая (количественная)

Метрическая (количественная)

Критика типологии Стивенса

Пол

(мужской vs. женский)

Недихотомические:

Национальность  

(американец/китаец/ и т.д) Дихотомические:  

Состояние здоровья

(здоровый vs. больной),

Красота

(красивый vs.уродливый)

Недихотомические:

Мнение  

('полностью согласен'/  

'скорее согласен'/  

'скорее несогласен'/  

'полностью несогласен') Дата  

(с 1457 до н. э.  

до 2013 н.э)

Широта

(от +90° до −90°)

Температура

(от 10 °C до 20 °C)

Возраст  

(от 0 до 99 лет)

Мера центральной тенденции  

Мода

Медиана

Среднее арифметическое

Сред

нет  

Неметрическая (качественная)

Неметрическая (качественная)

Метрическая (количественная)

Метрическая (количественная)

Критика типологии Стивенсаяснение: