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

класс. Тест по Паскалю. Можно только ответы. 15 мин ​


класс. Тест по Паскалю. Можно только ответы. 15 мин ​

Показать ответ
Ответ:
theanuta11
theanuta11
07.04.2020 14:17

Задача полностью

Категория     Количество сайтов

сканер           200

принтер         250

монитор        450

Сколько сайтов будет найдено по запросу  

принтер | сканер | монитор

если по запросу принтер | сканер было найдено 450 сайтов, по запросу принтер & монитор – 40, а по запросу сканер & монитор – 50.

Решение

Сканер - С =200

Принтер - П =250

Монитор - М =450

П | С=450

П & М=40

С & М=50

П | С | М-?

Формула включений-исключений

П | С | М = П + С + М - (П & М) - (П & С) - (С&M) + (П & С & М)

П | С = П + С - П & С => П & С = П | С - П - С = 450 - 200 - 250 = 0 (не пересекаются)

Значит П & С & М = 0 аналогично

П | С | М = П + С + М - (П & М) - (П & С) - (С&M) + (П & С & М) = 250+200+450-40-0-50+0 = 810

ответ 810

Объяснение:

0,0(0 оценок)
Ответ:
Altama
Altama
28.01.2021 20:27

Program abc;

var P,R,N,D,A,C: integer;

var B:real;

begin

  write('Введите число P(Первый член прогрессии) - ');

 Read(P);

   write('Введите число R(Разность прогрессии) - ');

 Read(R);

   write('Введите число N(Число которое не может привышаться) - ');

 Read(N);

  D:=2*P;

  A:=D+R*(N-1);

  B:=A/2*N;

 If  (B>N) then writeln('ответ превышает число N')

  else Writeln('Сумма членов арифметической прогрессии:' B);

end.

Быстро прочекал что такое арифметическая прогрессия и попытался написать код. Не суди строго если что-то не так)

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