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

1. Қалай ойлайсың, программалауды үйрену не үшін қажет? 2. Программа құрудың интеграцияланған ортасы (IDE) бойынша
түсінігіңді сыныптастарыңа қысқаша қалай жеткізер едің?
3. Программа құрудың интеграцияланған ортасы қандай бөліктерден тұрады?
4. Программалау тілдерінің арасынан не себепті Python-ды таңдадың? ​

Показать ответ
Ответ:
deva70
deva70
09.05.2022 09:47
Var a: array[1..10] of integer;
    b: array[1..10] of real;
    i,n: integer;
    s: real;
begin
  s:=0; n:=0;
  write('массив a:  ');
  for i:=1 to 10 do
  begin
    read(a[i]);
    if a[i]<0 then 
    begin
      s:=s+a[i];
      n:=n+1;
    end;  
    write(a[i],' ');
  end;
  s:=s/n; 
  writeln;
  writeln('среднее арифметическое отрицательных: ',s);
  writeln('количество отрицательных: ',n);
  write('массив b:  ');
  for i:=1 to 10 do
  begin
    if a[i]<0 then b[i]:=s
    else b[i]:=a[i];
    write(b[i]:7:3);
  end;
end.

массив a:  2 2 -3 1 -5 -6 -5 9 -7 5 
среднее арифметическое отрицательных: -5.2
количество отрицательных: 5
массив b:    2.000  2.000 -5.200  1.000 -5.200 -5.200 -5.200  9.000 -5.200 5.000
0,0(0 оценок)
Ответ:
djdhd1
djdhd1
15.03.2020 00:18
/*VS C++*/
#include <iostream>

using namespace std;

int main() {
    setlocale(LC_ALL, "Russian");
    int N, y, i;
    bool Prime;
    cout << "Введите число: "; cin >> N;
    do {
    Prime = true;
    y = N % 10;
    for (i = 2; i <= (sqrt(abs(y))); i++) {
        if (y % i == 0) {
            Prime = false;
            break;
        }
    }
    if ((Prime) & (y != 0) & (y != 1))
        cout << y << " - простое" << endl;
    else
        cout << y << " - не простое" << endl;
    N = N / 10;    
    } while (N != 0);
    system("pause");
    return 0;
}

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