Составить программу, определяющую, является ли данное утверждение истинным: Двузначное число А начинается на 3

Составить программу, определяющую, является ли данное утверждение истинным: Ровно одно из чисел А и В не превышает 100

Question

Информатика

Венцеслава

3 декабря, 10:59

Составить программу, определяющую, является ли данное утверждение истинным: Двузначное число А начинается на 3

Составить программу, определяющую, является ли данное утверждение истинным: Ровно одно из чисел А и В не превышает 100

+4

Ответы (1)

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

Тимур · Answer 1

1)

var a:Integer;

begin

Readln (a) ;

if a div 10=3 then

writeln ('True') ;

readln;

end.

2)

var a, b:Integer;

begin

Readln (a, b) ;

if ((a100)) or ((a>100) and (b<100)) then

Writeln ('True') ;

readln;

end.