1.Найти меньшее min из двух целых чисел x и y 2.Даны натуральные числа a и b....

Question

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

Comments

Предпочтительный язык?

---

Паскаль

---

Принято

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.