В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
conyp2005
conyp2005
13.06.2021 05:00 •  Информатика

Задание 1. Напишите программу, определяющую принадлежность точки х отрезку [a;b]. (все переменные опишите как real и введите с клавиатуры).

Для проверки принадлежности точки х отрезку [a;b] воспользуйтесь условием (x>=a) and (x<=b)

Примеры ввода-вывода:

Задание 2. Вводится порядковый номер дня недели n.

При значениях n = 1, 2, 3, 4, 5 – вывести «Это рабочий день», при n = 6, 7 – вывести «Это выходной»,

во всех других случаях – вывести «Ошибка ввода».

(При определении условия n = 1, 2, 3, 4, 5 используйтесь условием (N= 1)or(N= 2)or(N= 3) и т.д..

Задание 3. Вводятся оценки (f, a, g, h ) за 4 контрольные работы – по физике, алгебре, геометрии и химии. Если каждая оценка больше или равна 4, вывести на экран «МОЛОДЕЦ!».

В остальных случаях вывести «ПОДТЯНИСЬ!». (Используйте сложное условие)

Задание 4. Проверить, существует ли треугольник со сторонами a, b, c (ввести с клавиатуры). Для проверки используйте неравенство треугольника: сумма длин любых двух сторон должна быть больше третьей. То есть нужно проверить одновременно три условия: a+b>c, a+c>b, b+c>a.

Показать ответ
Ответ:
Ḱặрặṃềӆьҟӑ
Ḱặрặṃềӆьҟӑ
07.01.2020 09:59

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

}

Объяснение:

0,0(0 оценок)
Ответ:
dashaponomarev4
dashaponomarev4
27.07.2020 10:42
#include <iostream>
#include <cmath>
using namespace std;
bool prost(int m){
int k = 0;
for (int i=2; i<=sqrt(m); i++)
if (m % i == 0) k++;
return k==0;
}

int main(){
    int n, r;
    int i = 1;
    cout << "n = ", cin >> n, cout << "\n";
    if (prost(n)) {
    cout << "1 * " << n << " = " << n << "\n";}
    else {
    r = n;
    while (r != 1){
    i++;
    if (prost(i)){
    while (r % i == 0){
    r = r / i;
    cout << i;
    if (r != 1) cout << "*";
    }
  }
  }
  cout << "=" << n << "\n";
    }
return 0;
}

Пример:
n = 2720
2*2*2*2*2*5*17=2720
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота