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

Question

Информатика

Федя

23 сентября, 15:27

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

+3

Ответы (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.