Даны два целых числа а и b. Проверьте истинность высказывания "Справедливы неравенства а>2 и b≤3". Напишите программу

Question

Информатика

Сергуся

25 февраля, 11:25

Даны два целых числа а и b. Проверьте истинность высказывания "Справедливы неравенства а>2 и b≤3". Напишите программу

+5

Ответы (1)

Знаете ответ на вопрос?

Димуля · Answer 1

Program da;

var a, b:integer;

begin

write ('Введите а:') ;

readln (a) ;

write ('Введите b:') ;

readln (b) ;

if (a>2) and (b<=3) then

writeln ('Правда') ;

else

write ('Ложь')

end.