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

Фото прикреплено очень !


Фото прикреплено очень !

Показать ответ
Ответ:
Невидимка003
Невидимка003
03.10.2020 14:40
#include <iostream>
#include <string>

int main()
{
    std::string str;
    getline(std::cin,str);

    const int n = 5;
    std::string c[n] = { "=", "==", "!=", "a +=", "a -=" };
    std::string psl[n] = { ": =", "=", "#", "a = a +", "a = a -" };

    for (unsigned int i = n-1; i > 0; i--){
        int p = str.find(c[i]);
        while (p > 0)
        {
            str.replace(p, c[i].size(), psl[i]);
            p = str.find(c[i]);
        }        
    }
    std::cout << str;
    return 0;
}
0,0(0 оценок)
Ответ:
b00777
b00777
08.03.2020 11:22
1. Короткий вариант

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(10,10,20); a.Println;
  Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum);
  a.Transform(x->x-5); a.Println
end.

Тестовое решение
14 17 12 17 20 11 13 18 19 20
Сумма кубов 46517
9 12 7 12 15 6 8 13 14 15

2. "Школьный вариант"

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
var
  a:array[1..10] of integer;
  i,s:integer;
begin
  Randomize;
  s:=0;
  for i:=1 to 10 do begin
    a[i]:=Random(11)+10;
    Write(a[i],' ');
    s:=s+a[i]*sqr(a[i])
    end;
  Writeln;
  Writeln('Сумма кубов ',s);
  for i:=1 to 10 do begin
    a[i]:=a[i]-5;
    Write(a[i],' ')
    end;
  Writeln
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота