Помогите please!!!
задача такова:
В программу вводятся 2 натуральных числа. Надо: сравнить числа, узнать на сколько одно число больше чем второе, сравнить количество символов числа, и узнать разницу количества символов.
На выходе должно быть:
например:
1) 2000 > 20
2) Первое число на 1980 едениц больше чем второе
3) Сравнение количества элементов в числах: 4 > 2
4) Разница количества элементов в числах: 2
В программу вводятся 2 натуральных числа. Надо: сравнить числа, узнать на сколько одно число больше чем второе, сравнить количество символов числа, и узнать разницу количества символов.
На выходе должно быть:
например:
1) 2000 > 20
2) Первое число на 1980 едениц больше чем второе
3) Сравнение количества элементов в числах: 4 > 2
4) Разница количества элементов в числах: 2
ength(s:string):integer
Функция возвращает в качестве результата значение текущей длины строки-параметра
Val(st: string; x: числовая переменная; var code: integer)
Процедура преобразует строковую запись числа, содержащуюся в st, в числовое представление, помещая результат в x. x - может быть как целой, так и действительной переменной. Если в st встречается недопустимый (с точки зрения правил записи чисел) символ, то преобразование не происходит, а в code записывается позиция первого недопустимого символа. Выполнение программы при этом не прерывается, диагностика не выдается. Если после выполнения процедуры code равно 0, то это свидетельствует об успешно произошедшем преобразовании.
Функция возвращает в качестве результата значение текущей длины строки-параметра
Val(st: string; x: числовая переменная; var code: integer)
Процедура преобразует строковую запись числа, содержащуюся в st, в числовое представление, помещая результат в x. x - может быть как целой, так и действительной переменной. Если в st встречается недопустимый (с точки зрения правил записи чисел) символ, то преобразование не происходит, а в code записывается позиция первого недопустимого символа. Выполнение программы при этом не прерывается, диагностика не выдается. Если после выполнения процедуры code равно 0, то это свидетельствует об успешно произошедшем преобразовании.
Var
A,b:integer;
As,bs:string;
Begin
Readln(a); readln(b);
Val(a, as); val(b, bs);
If (a>b) and (as>bs) then writeln('a>b Ha ',a-b,'a>b на',length(as)-length(bs),'символов') else writeln('a<=b Ha ',b-a);
A,b:integer;
As,bs:string;
Begin
Readln(a); readln(b);
Val(a, as); val(b, bs);
If (a>b) and (as>bs) then writeln('a>b Ha ',a-b,'a>b на',length(as)-length(bs),'символов') else writeln('a<=b Ha ',b-a);