СРОЧНО!!!! ЗАДАЧИ ** ПАСКАЛЬ 2.Даны натуральные числа a и b. Определить тип...

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.