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

1. Напишите программу, которая по введенным пользователем трём сторонам треугольника должна определить является ли треугольник равносторонним, равнобедренным или вырожденным. Вычислить его площадь, вывести сообщение о том, какой треугольник был рассчитан.

Показать ответ
Ответ:
Мариночка010404
Мариночка010404
23.01.2022 05:07

Задача:

Дано:

Страниц в романе = 736*

t на сканирование = 3 cек

t на смену страницы = 5 сек

t на распознование = 2 сек

Найти:

t общее - ?

1. Вычислим сумму времени всех операций, необходимых для обработки одной страницы:

3 сек + 5 сек + 2 сек = 10 (сек) - требуется на обработку одной страницы.

2. Умножим количество страниц в романе на время обработки одной страницы:

736 × 10 сек = 7360 (сек) - уйдет времени на ввод в память компьютера текста романа.

ответ: 7360 секунд.

* - количество страниц зависит от условий и учебника, я брал количество страниц в книге от издательства АСТ.

0,0(0 оценок)
Ответ:
leedercools
leedercools
15.07.2022 15:54

// PascalABC.NET

begin

 // 1

 var s11 := SeqRandom(100, 10, 99).Sum;

 var s12 := ArrRandom(100, 10, 99).Sum;

 case Sign(s11 - s12) of

   -1: Println('Сумма второго массива больше');

   0: Println('Суммы равны');

 else

   Println('Сумма первого массива больше')

 end;

 // 2

 var s21 := SeqRandom(1000, -9, 9).Sum;

 var s22 := ArrRandom(1000, -9, 9).Sum;

 var s23 := ArrRandom(1000, -9, 9).Sum;

 if s21 > s22 then

   Swap(s21, s22);

 if s22 > s23 then

 begin

   Swap(s22, s23);

   if s21 > s22 then

     Swap(s21, s22)

 end;

 Println(s21, s22, s23);

 // 3

 var a := ArrRandom(50, -99, 99);

 a.Println;

 var s31 := a.Where(p -> p > 30);

 Print('Количество', s31.Count, '   сумма', s31.Sum)

end.


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