Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Тппсхп
05.01.2021 00:18 •
Информатика
Внимательнач ученица выполняя на компьютере прилдвинулааь вподноую к экрану монитор и стала водить пальчиком по текстур на экране наргуоилк ли технику безопасность то какие
Показать ответ
Ответ:
MegaTanker
24.05.2021 02:55
//PascalABC.NET 3.1 сборка 1239
uses System;
uses System.Collections;
begin
var d := DateTime.Today;
repeat
d := d.AddDays(1);
until d.DayOfWeek = DayOfWeek.Sunday;
var Sundays := new Dictionary<integer, integer>();
repeat
if Sundays.ContainsKey(d.Year) then
Sundays[d.Year] += 1
else
Sundays.Add(d.Year, 1);
d := d.AddDays((-7));
until d.Year <= 1;
var max := Sundays.Values.Max;
Sundays.Where(x -> x.Value = max).Println;
end.
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 оценок)
Популярные вопросы: Информатика
ostankova82
31.05.2021 08:46
Составить программу вычисления значения синуса, косинуса и тангенса заданного угла. (Паскаль)...
софика4
01.05.2021 19:05
Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен сумме двух предыдущих...
gea99
13.06.2022 09:02
Составьте программу, которая в одномерном массиве размерностью 8 (элементы массива случайные числа из промежутка от 15 до 100) находит максимальный элемент. оформите...
khadija2004
14.10.2021 22:03
AdiZer0 после окончания школы стал параноиком. Он построил огромную изгородь вокруг дома для защиты своих друзей. Друзьям такая идея не понравилась. Друзья-соседи...
danielfokin
16.08.2021 13:20
Алмаз написал на бумажке IP-адрес, который позже случайно порвал на кусочки. В результате получилось 4 обрывка с фрагмен тами IP-адреса. Эти фрагменты обозначены...
temur4
24.05.2022 17:46
Напишите все серверы, через которые проходит ваш пакет до сервера gо.gle.cоm, когда вы его открываете в браузере....
leyla623
06.03.2021 11:25
побудуйте прямокутник за стороною й куту між діагоналями постройте прямоугольник по стороне и углу между диагоналями...
Zagitova112
06.11.2022 03:50
Азргі казак ауыл мен қаленың эссе...
Mikkail
08.03.2022 08:14
Письмо. 1. вставьте пропущенные буквы . подчеркните слова, обозначающие видытранспорта,, тро.кейбус, пед, трамвай, эск..латор, , п..лот, ,, , , рекомендация, , ,...
diasashat11
03.06.2021 01:11
Зо. ребусты шеш.• ребустың шешуіндегі сөзді қатыстырып сөйлем кура....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses System;
uses System.Collections;
begin
var d := DateTime.Today;
repeat
d := d.AddDays(1);
until d.DayOfWeek = DayOfWeek.Sunday;
var Sundays := new Dictionary<integer, integer>();
repeat
if Sundays.ContainsKey(d.Year) then
Sundays[d.Year] += 1
else
Sundays.Add(d.Year, 1);
d := d.AddDays((-7));
until d.Year <= 1;
var max := Sundays.Values.Max;
Sundays.Where(x -> x.Value = max).Println;
end.
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.