Упростите логические выражения: ¬(A & B) V (A & ¬B)

Q: Паскаль! введите четырёхзначное число. определите верно ли, что число тысяч в этом числе меньше, чем число десятков.

Не уверен, что правильно, но всё же(t - цифра обозначающая разряд тысяч, d -цифра обозначающая разряд десятков)var a,t,d:integer; begin writeln('Введите четырёхзначное число'); read(a); t:=a div 1000; d:=(a mod 100) div 10; if t>d then writeln('Число тысяч больше числа десятков') else writeln('Число тысяч меньше числа десятков'); end.

Question 1

Accepted Answer

21,8(10) = 10101.11(2)21,8(10) = 25.63(8)21,8(10) = 15.cc(16)

Question 2

Написать программу. которая вводит массив из n целых чисел и выводит на экран элементы с чётными номерами.

Accepted Answer

var a:array[1..N] of integer; i,n:integer; begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do  if (i mod 2=0) then for i:=1 to n do writeln(a[i]); end.

Question 3

1.найти сумму чётных цифр числа. 2.вывести на экран таблицу умножения. 3.найти все двухзначные числа, сумма которых равна а. 4.найти количество и сумму чётных делителей. всё через цикл.

Accepted Answer

1.Найти сумму чётных цифр числа. uses crt;var a,x:integer;i,s:integer;beginclrscr;writeln('Vvedite chislo');readln( a ); x:=a;s:=0;while ( x<>0 ) dobeginif x mod 2 =0 then s:= s + (x mod 10);x:= x div 10;end;writeln( 'Summa= ', s );readln;end.   2.Вывести на экран таблицу умножения. uses crt;var a: array [1..10,1..10] of integer;i,j:integer;beginclrscr;for i:=2 to 10 dobeginwriteln;for j:=1 to 10 dowrite(i*j,'  ');end;writeln;readln;end.   3.Найти все двухзначные числа, сумма которых равна

Question 4

Напишите программу, которая вводит с клавиатуры число а вычисляет результат в зависимости от введённого значения а по формуле, представленной на фото:

Accepted Answer

var b,A: integer;beginwriteln('Введите значение A: ');readln(A);if A>0 thenbeginb:=A+5;writeln('b = ',b);endelse if A<=0 thenbeginb:=sqr(A)-1;writeln('b = ',b);end;end.

Question 5

Паскаль! введите четырёхзначное число. определите верно ли, что число тысяч в этом числе меньше, чем число десятков.

Accepted Answer

Не уверен, что правильно, но всё же(t - цифра обозначающая разряд тысяч, d -цифра обозначающая разряд десятков)var a,t,d:integer;       begin writeln('Введите четырёхзначное число'); read(a); t:=a div 1000; d:=(a mod 100) div 10; if t>d then writeln('Число тысяч больше числа десятков') else writeln('Число тысяч меньше числа десятков'); end.

Упростите логические выражения: ¬(A & B) V (A & ¬B)

Информатика: новые вопросы