// определение числа чётных и нечётных цифр в числе
var n, a, b : integer;
begin
a:=0; //чётные
b:=0; //нечётные
readln (n);
if n<0 then
n:=-n; // уничтожение знака числа
repeat
if ((n mod 10) mod 2<>0) then
a:= a+1
else
b:= b+1;
n:= n div 10; // удаление последней цифры числа
until n=0;
writeln ('Чётных - '+b);
writeln ('Нечётных - '+a);
end.
Program Pr1;
uses crt;
var n,i,a,b,c:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
a:=n;
for i:=2 to 4 do begin
a:=a+10;
n:=n+a;
end;
writeln(n);
end.
Для удобства построения таблицы истинности введем логические переменные.
Обозначим 2*2=4 через a, 3*3=9 - через b.
Тогда высказывание примет вид:
Для этого выражения и построим таблицу истинности.
2. Для доказательства равносильности указанных выражений можно построить таблицы истинности и сравнить их.
Как видно, НЕСОВПАДЕНИЕ полное, т.е. ни при каком сочетании a и b выражения не равносильны. Это подтверждается теорией - имеются законы де-Моргана, в которых еще присутствует общее отрицание или в правой. или в левой части.
Ответ:
1c
2d
3a
4d
5b
6c
Хз правильно не правильно
Program z1;
var v,s,t = integer;
begin
readln(s);
readln(t);
v=s/t;
writeln(v);
end.