Выбери какой закон алгебры логики выполняется.

Число 7 либо чётное, либо нечётное, третьего не дано.

A&A¯¯¯=3

A¯¯¯

A∨A¯¯¯=1

нет верного ответа

Цикл с параметром был уже рассмотрен нами в разделе "Алгоритм" в теме "Виды алгоритмов".

       Цикл с параметром используется,  когда заранее известно сколько раз должен выполниться цикл.  

Формат записи цикла:  

For  <пар.цикла> := <нач.знач> to <кон.знач.> do <оператор>

       Здесь for, to, do - зарезервированные слова (для, до, выполнить);  

<пар. цикла> - параметр цикла – переменная целочисленного типа (типа integer);  

<нач. знач.> - начальное значение - число или переменная целочисленного типа (типа integer);  

<кон. знач.> - конечное значение - число или переменная целочисленного типа (типа integer);  

<оператор> - произвольный оператор Паскаля.  

Пример:  For i:=1 to n do <оператор>

здесь i - параметр цикла

        1 - начальное значение

        n - конечное значение        

       Если в теле цикла используется несколько операторов, тогда, используются операторные скобки: begin ... end.  

       При выполнении оператора for вначале вычисляется выражение <нач .знач.> и осуществляется присваивание его значения переменной цикла <пар .цикла> := <нач. знач.>. Далее сравниваются <пар .цикла> и  <кон.знач.>. До тех пор, пока они не станут равными будет выполняться оператор (операторы). Значение переменной цикла <нач.знач> автоматически увеличивается на единицу в ходе выполнения цикла. Надо сразу заметить, что задать шаг цикла, отличный от 1 в этом операторе нельзя.

Объяснение:

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.