Владимирович_Роман
?>

Какое логическое выражение равносильно выражению смотрите фото! (А \/ В) \/ С​

Информатика

Ответы

nikitamihailov22095010

№1

Program z1;

var N:integer;

Begin

write ('Введите число N: ');

readln(N);

if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');

end.

 

№2

Program z2;

var a, b, c, k:integer;

Begin

k:=0;

writeln ('Введите числа a, b и c: ');

readln(a,b,c);

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

write('Количество отрицательных чисел: ',k)

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какое логическое выражение равносильно выражению смотрите фото! (А \/ В) \/ С​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Sergei
lazu8375
Vladimirovna1858
Coverplus30
sashab82
alena
titancore
Doronin755
glebovaludok
samiramoskva
a1rwalk3r
sveta1864
bezpalova2013
cmdkotelniki
dmitrymakarov003