25
Июль1.Найти меньшее min из двух целых чисел x и y 2.Даны натуральные числа a и b. Определить тип обыкновенной…
Предмет: Информатика
Уровень: студенческий
1.Найти меньшее min из двух целых чисел x и y
2.Даны натуральные числа a и b. Определить тип обыкновенной дроби a/b (правильная или неправильная), ответ записать в переменную d.
3.Дано целое число х. Если оно двузначное, то в переменную s записать слово “YES”, иначе – слово “NO”.
Замечание: в программах обязательно должны быть блок ввода и блок вывода.
Program n_1;
var x, y:integer;
begin
readln(x, y);
if (x<y) and ((x mod 2 = 1) or (y mod 2 = 1)) then writeln(‘true’)
else writeln(‘false’);
end.