Question

СРОЧНО!!!! ЗАДАЧИ НА ПАСКАЛЬ
2. Даны натуральные числа a и b. Определить тип обыкновенной дроби a/b (правильная или неправильная), ответ записать в переменную d.
3. Дано целое число х. Если оно двузначное, то в переменную s записать слово “YES”, иначе – слово “NO”.
Даю 30 баллов!

Answer 1

1) var a,b:integer;

   d:string;

begin

 writeln('Введите a,b'); readln(a,b);

 if a >= b then d := 'Неправильная'

 else d := 'Правильная';

 write(d);

end.

2) var

 x,k: integer;

begin

 writeln('Введите x'); readln(x);

 x := abs(x);

 while x > 0 do

 begin

   x := x div 10;

   k := k + 1;

 end;

 if k = 2 then write('YES')

 else write('NO');

end.