Сколько всего подмножеств можно составить из элементов множества A={1,2,3,4,5,6}? Необходимо учесть все одноэлементные, двухэлементные, трехэлементнтые, четырехэлементные, пятиэлементнтые подмножества, а также само множество А и пустое множество.

линейный (следования)

разветвляющийся (развилка)

циклический

 

по введенному натуральному числу n(n< =100) обозначаешему количество ворон вывести надпись ,на дереве n ворон.где ворона склоняеться соответсвено n: 'ворон'.'ворона"вороны' в случаем n превышаюшего 100 вывести надпись 'ветка обламилась'

 

uses crt; var n : integer; begin clrscr; repeat write ( 'введите число от 1 до 100 n = ' ); readln (n ); until n> 0; case n of 11..14 : write ( 'сидело ' ,n , ' ворон' ); 1..10 ,15..100 : case n mod 10 of                 1 : write ( 'на дереве сидела ' ,n , ' ворона' );                 2..4 : write ( 'на дереве сидели ' ,n , ' вороны' );                 0 ,5..9 : write ( 'на дереве сидело ' ,n , ' ворон' );                 end else write ( 'ветка обломилась! ' ); end; readln; end.

Var       s, m: integer; begin       writeln('возраст саши = ');       read(s);       writeln('возраст маши = ');       read(m);             if s > m then writeln('саша старше маши');       if m > s then writeln('маша старше саши');       if m = s then writeln('одногодки'); end.