Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Elkahit
05.06.2022 22:44 •
Информатика
Соедини все фигурки в одну цепочку так, чтобы это утверждение было ложным: в этой цепочке последняя фигурка-кошка
Показать ответ
Ответ:
Айринчик
22.12.2021 06:00
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 оценок)
Ответ:
НикитаТим
10.03.2022 23:38
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
plesovskih
08.09.2021 13:34
Фирма осуществляет набор сотрудников. Условия приема требуют не менее 3 лет стажа и возраст не более 35 лет. Написать программу, проверяющую удовлетворяет ли кандидат этим...
ЛёхаТихонов
05.04.2022 10:36
Даны натуральные числа a и b. Создайте функцию , находящую большее из чисел a и b....
ОверДовн
25.10.2022 13:14
Квосьми утра это сколько времени?...
АляК1
20.07.2022 15:28
Составить блок схему алгоритма и программу для вычисления функции по формуле для произвольных исходных данных, с двойной точностью: z=√(|x^2-2a|+sinx )/(π arctgx-√2b)+0,496...
Elkahit
19.01.2022 05:31
1)по мнению многих ученых рачселение древних людей по земле началось: а) из европы б) из африки в) из южной америки г) из австралии. 2)к кореным жителям южной америке относят...
TRINDES2017
29.11.2022 19:22
Сколько автомобилей в одном городе можно обеспечить государственными регистрационными знаками, если каждый регистрационный знак состоит из кода города, трёх букв, имеющих...
милания5
30.03.2023 14:52
Радиус основания одного цилиндра в 4 раза больше радиуса основания другого цилиндра, а высота первого цилиндра в 4 раза меньше высоты второго. найти отношение объёмов цилиндров....
AlviaSil
26.04.2021 00:09
Замени сочетание слов безразличным глаголом например: не хотелось спать-не спалось 1виделось во сне 2ощющается болезненый зноб 3удается в делах 4солнце клонится к закату...
БарсукВася
26.04.2021 00:09
Вкуб вписан шар радиус 3.найти объем куба ....
Masha200605
26.04.2021 00:09
Разложите на множители 3(t+2)-t(t+2) ab(b-3)+a^2(b-3) c(c-d)+d(d-c) k(m-3n)-p(3n-m) 5(y+3)-a(y+3)-a(y+3)-x(y+3) 2(x-4)+c(4-x)-a(x-4) ^-степень...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.