Паскаль. (используя процедуру или функцию) дано число проверить равны ли первая и последняя цифра числа

235

484

Посмотреть ответы 2

Ответы на вопрос:

annakolupaewa20

Информатика

4,7(16 оценок)

Function isequal(n: longint): boolean; { возвращает true, если первая и последняя цифры числа равны } var s: string; begin str(n,s); isequal: =(s[1]=s[length(s)]) end; var k: longint; begin write('введите натуральное число '); read(k); write('первая и последняя цифры введенного числа '); if not isequal(k) then write('не '); writeln('') end. тестовые решения: введите натуральное число 15342403 первая и последняя цифры введенного числа не введите натуральное число 745370007 первая и последняя цифры введенного числа