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

Где то в поле робота находятся две горизонтальные стены смещены друг относительно друга размеры которых неизвестно робот из произвольной клетки над стеной, но обязательно напротив нее должен дойти до стены и закрасить все клетки между стенами как показано на рисунке.сделать в программе кумир

Показать ответ
Ответ:
TheHammer
TheHammer
25.08.2020 21:29

#include <iostream>

using namespace std;

int main() {

setlocale(LC_ALL, "Rus");

int mas[17], s = 0, sr = 0, counter = 0, counter_p = 0;

for (int i = 0; i < 17; i++) {

 cin >> mas[i];

 if (mas[i] > 0) {

  counter_p++;

  sr += mas[i];

 }

}

sr = sr / counter_p;

for (int i = 0; i < 17; i++) {

 if (mas[i] > sr) {

  counter++;

  s += mas[i];

 }

}

cout << "Количество элементов, которые больше среднего арифметического: " << counter << "\n";

cout << "Сумма элементов, которые больше среднего арифметического: " << s;

return 0;

}

0,0(0 оценок)
Ответ:
овошвл
овошвл
16.09.2021 10:58

var

 k,h:integer;

 p,s,x,eps,n,p1:real;

begin

 x:=10;

 while (x<0) or (1<x) do begin   {Условие ввода 0>x>1}

   write('Введите X = '); readln(x);

   end;

 eps:=1e-@;   //В место @ нужно ввести погрешность в положительном числовом виде (вычислить до @-го знака после запятой)

 p:=x;

 n:=2;

 p1:=1;

 h:=1;

 while abs(p)>eps do   {Условие выхода: очередной член ряда по модулю меньше eps}

 begin

   writeln('[Отладка]  ',eps,'    ',p,'    ',s,'    ',n);   //отладка

   for var i:=0 to 1 do begin

     k:=k+1;

     p1:=p1*k;

   end;

   h:=h*-1;

   p:=h*(power(2*x,n))/p1;   {Вычисление очередного члена ряда}

   s:=s+p;

   n:=n+2;

 end;

 writeln('cos(2x-1) = ', s);

end.

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