М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
olgaaaaaa13
olgaaaaaa13
25.03.2020 17:35 •  Информатика

А) найдите среднюю температуру за неделю (температура была: -5, - 3, -7, -6, -2, - 4, -3) сколько дней было выше средней? ниже средней? составить массив.

👇
Ответ:
Nikitakos222
Nikitakos222
25.03.2020

Program Frank;
const n=7;
Type mas=array[1..n] of integer;
var a:mas;i,sym,k,k1:integer;sredn:real;
begin
k:=0;
k1:=0;
a[1]:=-5;
a[2]:=-3;
a[3]:=-7;
a[4]:=-6;
a[5]:=-2;
a[6]:=-4;
a[7]:=-3;
sym:=0;
for i:=1 to n do begin
sym:=sym+a[i];
end;
sredn:=sym/n;
for i:=1 to n do begin
if a[i]>sredn then k:=k+1
else if a[i]<sredn then k1:=k1+1;
end;
writeln('Кол-во дней,когда температура была выше средней ',k);
writeln('Кол-во дней,когда температура была ниже средней ',k1);
end.

 

4,7(92 оценок)
Открыть все ответы
Ответ:
KatarinaDip
KatarinaDip
25.03.2020

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

}

Объяснение:

4,7(1 оценок)
Ответ:
lubov9
lubov9
25.03.2020

C++:

#include <bits/stdc++.h>

using namespace std;

int main() {

 long long a, b; cin >> a >> b;

 system("cls && color ")           < код цвета

 cout << (a + b) / b;

}

PASCAL:

var a, b, c: integer;

begin

 readln(a);

 readln(b);

 c:=(a+b)/b;

 ClrScr;

 textbackground(...);       < где троеточие вставляй код цвета

 textcolor(...);

 writeln(c);

end.

Объяснение:

Коды цветов в паскаль:

0   Black,         черный.   8   DarkGray,          темно-серый.          

1   Blue,           синий.   9   LightBlue,          ярко-синий.          

2   Green,        зеленый.  10   LightGreen,       ярко-зеленый.        

3   Cyan,         голубой.  11   LightCyan,        ярко-голубой.        

4   Red,          красный.  12   LightRed,         ярко-красный.        

5   Magenta,   фиолетовый.  13   LightMagenta,  ярко-фиолетовый.    

6   Brown,     коричневый.  14   Yellow,                 желтый.              

7   LightGray, ярко-серый.  15   White,                   белый

Важно для работы ClrScreen надо подключить модуль Crtl через use

4,5(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ