Складіть проект для малювання квадратів, розміщених поруч,поки периметр квадрата не перевищує 50 кроків. довжина сторони першого з них дорівнює a кроків, довжина сторони кожного наступного - на b кроків більша за довжину сторони попереднього розв'язок має бути написаний в зошиті​

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

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

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

сканер           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

Объяснение: