Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
irina197505
20.12.2021 22:56 •
Информатика
Информатика 7 класс не могу понять
Показать ответ
Ответ:
дильназ149
24.01.2021 17:55
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 оценок)
Ответ:
Гaяз
08.08.2021 13:19
Как-то так
#include <iostream>
using namespace std;
int main(){ cout << "Vvedute kol-vo ocenok" << endl;
int n,i,a,Four,Five; n = i = a = Four = Five = 0;
cin >> n;
for (i = 1; i <= n; i++) { cin >> a; if (a == 4){ Four++;} else if (a == 5) { Five++; } } if (Four > Five){ cout << "Four" << endl;} else if (Five > Four) { cout << "Five" << endl; } else { cout << "Equal"<< endl; } cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl; return 0;}
0,0
(0 оценок)
Популярные вопросы: Информатика
крисс1233
21.04.2020 16:54
Составьте программу, которая вставляет после первого слова строки s запятую и выводит полученную строку на экран.строка s, состоящая из двух слов, разделенных пробелом, вводится с...
nazarko200
24.06.2021 05:44
Разложите число 57.25 в двоичной системе счисления, восьмиричной системе счисления, и шестнадцатиричной системе счисления. , нужно! за 70...
inakenyakakyevich
08.04.2023 10:44
Какова роль чёрного и азовского морей в развития хозяйства кубани...
Stasuyksuper06
18.01.2023 14:00
Выбери верный ответ. фрагмента текста называется количество битов, байтов или производных единиц (килобайтов, мегабайтов и т. необходимых для записи этого фрагмента заранее оговорённым...
fara2003onozog7w
11.05.2023 08:13
Влаборатории 35 368-x и 22 486-x компьютеров, всего 101 компьютер в какой системе счисления записаны числа?...
Daniilsukhankin2014
13.08.2021 18:07
Заполните таблицу в тетради Что вычисляется по формуле N-2^i? A) Мощность алфавита. B) Количество символов в тексте. B) Информационный вес одного символа. Г) Количество информации...
оеавц
24.10.2020 09:01
Дано множество: «Учёный». В ответе приведён пример объекта с единичным именем данного множества. Выбери верный ответ: Ватсон Gimp И. Слуцкая Г. В. Лейбниц...
Djanik228
31.03.2023 11:28
Program1.pas(7) : нет перегруженной подпрограммы с таким количеством параметров sqrt выдает эту ошибку стоит только добавить (+3,5) program lesya; var y,x: real; begin writeln ( решение...
zhenya214
04.08.2021 22:05
Мәтінді оқып, онда берілген мәліметтерді кластер әдістерімен түсіндіріңдер, пікірлеріңді түйінді сөздермен қорытындылаңдар...
hromovaysoydwfz
26.12.2021 23:21
Тәртіп дегеніміз не деген сұраққа ассоциация жасау.Сыбаға жаз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// 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
#include <iostream>
using namespace std;
int main(){ cout << "Vvedute kol-vo ocenok" << endl;
int n,i,a,Four,Five; n = i = a = Four = Five = 0;
cin >> n;
for (i = 1; i <= n; i++) { cin >> a; if (a == 4){ Four++;} else if (a == 5) { Five++; } } if (Four > Five){ cout << "Four" << endl;} else if (Five > Four) { cout << "Five" << endl; } else { cout << "Equal"<< endl; } cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl; return 0;}