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

Зробити чергування слів 50 ів ​

Показать ответ
Ответ:
qq302894
qq302894
19.06.2020 11:57
1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969
0,0(0 оценок)
Ответ:
ззннааййккаа
ззннааййккаа
26.01.2021 05:27

[Текст из сниппета]

[Припев]

Эти цепи на мне, сук, лавэ

Сотка тыщ на Black LV

Сотни сук хотят ко мне

Сотни сук хотят ко мне

Как дела? Как дела?

Это новый Cadillac

Делать деньги, делать деньги

Делать деньги, бл*ть, вот так (few-few)

[Куплет]

...

Быстрей, посмотри

Вам подарок, а мне часы

Drip на шее, всё под жопой

Мне чуть больше двадцати

[Припев]

Эти цепи на мне, сук, лавэ

Сотка тыщ на Black LV

Сотни сук хотят ко мне

Сотни сук хотят ко мне

Как дела? Как дела?

Это новый Cadillac

Делать деньги, делать деньги

Делать деньги, бл*ть, вот так (few-few)

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