Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

помогите, пожалуйста, программирование паскаль!!!

Ввести число и доказать, что первая цифра числа равна последней.

Ответ оставил Гость

var
A, B, C, D, E : integer;
begin
readln(A);
B := A;
C := 0;
D := A mod 10;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
E := C mod 10;
If E=D then writeln(Первая цифра равна последней)
else writeln(Первая цифра не равна последней)
end.