Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ива357
09.09.2021 15:34 •
Информатика
Определите количество единиц нулей и двоек в троичной записи результата выражения 27 200 9 40 3 100
Показать ответ
Ответ:
Шан15
16.10.2021 05:00
#include <iostream>
#include <cmath>
using namespace std;
void main()
{
int n,sum=0;
float y,k=0;
cin >> n;
int *mass = new int[n];
for (int i = 0;i < n;++i)
{
cin >> mass[i];
}
for (int i = 0;i < n;++i)
{
if (mass[i] >0 )
{
k++;
y=pow(mass[i],2);
cout<<y;
sum+=mas[i]
}
}
system("pause");
}
2)#include <iostream>
#include <cmath>
using namespace std;
void main()
{
int s,p,r,day=0;
cin >> s>>p>>r;
float km=s;
while(r>km)
{
km+=km*p/100;
day++;
}
cout << " km = " << km << " day = " << day << endl;
system ("pause");
}
0,0
(0 оценок)
Ответ:
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 оценок)
Популярные вопросы: Информатика
tdemon
05.06.2022 21:12
Впрограмме описан одномерный целостный массив а с индексами от 0 до 10. ниже предоставлен фрагмент этой программы, в котором значения элементов массива сначала , а затем...
timev01
05.06.2022 21:12
9. световое табло состоит из цветных индикаторов. каждый индикатор может окрашиваться в четыре цвета: белый, черный, желтый, красный. какое наименьшее кол-в лампочек должно...
4нцяулчанняашя
25.06.2021 15:12
Написать программу, которая вводит массив из К случайных чисел в диапазоне от -500 до 100 и выводит на экран элементы, кратные числу N (ввод с клавиатуры)...
TOLIK474747
24.10.2021 16:24
Во Сколько раз будет выполнен цикл в следующем алгоритме? P = 4; Делай P = P * 10 до тех пор пока P 1000; a)3 раза b)4 раза c)2 раза d)бесконечное число раз Во При вычислении...
Keliris
13.04.2023 17:49
решить Дан фрагмент таблицы «Зарплата сотрудников». A B 1 Фамилия Зарплата, руб. 2 Иванов 11830 3 Петров 13483,22 4 Кошкина 5338 5 Владимирова 16777,97 6 Поляков 38318 7...
jorik9
27.03.2021 09:37
Розтавити розділові знаки) терміново, рідна хата що на мить виринула ніби з туману відпливла немов шаланда так само несподівано як і з явилася....
Удача575
27.03.2021 09:37
Написать синквейн к рассказу в п астафьева стрижонок скрип...
Фара1323
27.03.2021 09:37
Спиши. вспомни как пишуться приставки и предлоги. выдели приставки.подчеркни предлоги вместе со словами в форму которых они входят. побежал по дороге...
римма59
27.03.2021 09:37
Квадрат и прямоугольник имеют одинаковый периметр 24 см . площадь какой фигуры больше,если длина прямоугольника 9см? 1дм?...
IFender
27.03.2021 09:37
Какой падеж у прилагательного новый в предложение на берегу реки рабочие выстроили новый дом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
#include <cmath>
using namespace std;
void main()
{
int n,sum=0;
float y,k=0;
cin >> n;
int *mass = new int[n];
for (int i = 0;i < n;++i)
{
cin >> mass[i];
}
for (int i = 0;i < n;++i)
{
if (mass[i] >0 )
{
k++;
y=pow(mass[i],2);
cout<<y;
sum+=mas[i]
}
}
system("pause");
}
2)#include <iostream>
#include <cmath>
using namespace std;
void main()
{
int s,p,r,day=0;
cin >> s>>p>>r;
float km=s;
while(r>km)
{
km+=km*p/100;
day++;
}
cout << " km = " << km << " day = " << day << endl;
system ("pause");
}
// 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