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

с заданием: по рисунку - Проанализируй и расскажи,какие датчики находятся в желтой палитре программного обеспечения LEGO MINDSTORMS EV3.​


с заданием: по рисунку - Проанализируй и расскажи,какие датчики находятся в желтой палитре программн

Показать ответ
Ответ:
котя1995
котя1995
18.03.2023 23:30
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var t:=ReadAllText('Pascal.txt');
  var c1:=ReadlnString('Введите строку замещаемых символов').ToCharArray;
  var c2:=ReadlnString('Введите строку замещающих символов').ToCharArray;
  for var i:=0 to c1.Length-1 do
    t:=t.Replace(c1[i],c2[i]);
  WriteAllText('Pascal.txt',t);
  Writeln('Работа завершена');
end.

Пример
Введите строку замещаемых символов ячсми
Введите строку замещающих символов фывап
Работа завершена
0,0(0 оценок)
Ответ:
SophiaSaliuk
SophiaSaliuk
02.08.2022 15:49
#include <iostream>
using namespace std;

int main()
{
    double S = 0;
    int N = 0, K = 0, A;
    cout <<"K = ",cin >> K;
    for(int i = 0; i < K; i++)
    {
        cout <<"Nabor "<<i<<": ";
        S = 0;
        N = 0;
        cin >> A;
        while(A != 0)
        {
            S+=A;
            N++;
            cin >> A;
        }
        if (N!=0) cout <<"Sr = "<<S/N<<"\n";
        else cout <<"Na noll delit' nel'zja!\n";
    }
    return 0;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота