Question

1. Найти меньшее min из двух целых чисел x и y
2. Даны натуральные числа a и b. Определить тип обыкновенной дроби a/b (правильная или неправильная), ответ записать в переменную d.
3. Дано целое число х. Если оно двузначное, то в переменную s записать слово “YES”, иначе – слово “NO”.
Замечание: в программах обязательно должны быть блок ввода и блок вывода.

Answer 1

1)

var x, y, min : integer;

BEGIN

read(x, y);

if x < y then min := x

else min := y;

write(min);

END.

2) (im)proper fraction - (не)правильная дробь

var a, b : integer;

d : string;

BEGIN

read(a, b);

if a >= b then d := 'improper fraction'

else d := 'proper fraction';

write(d);

END.

3)

var x : integer;

s : string;

BEGIN

read(x);

if (x >= 10) and (x < 100) then s := 'YES'

else s := 'NO';

write(s);

END.