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

2. Рассмотрите изображение, Рисунок 1
2. Одните 3 последствия нарушення правил техники безопасности, представленные на​

Показать ответ
Ответ:
nicita13254769p06wrf
nicita13254769p06wrf
30.12.2020 07:16
#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;

double Sum(int *A, int N, int C, int M);

int main()
{
    srand(time(0));
    int N, C = 19, M = 30;
    cout << "N = ", cin >> N;
    int Train[N];
    for(int i = 0; i < N; i++)
        cout << (Train[i] = rand() % (M+1)) << " ";
    cout << "\nSum = " << Sum(&Train[0], N, C, M);;
    return 0;
}

double Sum(int*A, int N, int C, int M)
{
    double S = 0;
    int k = 0;
    for(int i = 0; i < N; i++)
    {
        S += A[i]*C;
        k +=M - A[i];
    }
    cout << "\nk = " << k;
    return S;
}
0,0(0 оценок)
Ответ:
evgeniaberezka
evgeniaberezka
30.12.2020 07:16
Var n : int64;

Function isPali(A : int64) : Boolean;
Var B : int64;
Begin
  B:=1;
  While B<A do B:=B*10;
  B:=B div 10;
  If A>9 then isPali:=((A div B)=(A mod 10)) and isPali(A mod B div 10) else isPali:=True;
end;

Begin
  Readln(n);
  If isPali(n) then Writeln('Это полиндром.') else Writeln('Это не полиндром.');
  Write('Его квадрат ',sqr(n));
  If isPali(sqr(n)) then Writeln(' полиндром.') else Writeln(' не полиндром.');
end.

Хотя в Pabc.net есть функция и покороче:

Function IsPali(B : Longint) : Boolean;
Begin
  IsPali:=(B=IntRevers(B));
end;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота