Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево»

Категория: Delphi/Pascal
2011-11-24 21:16:16

Дано четырехзначное число.

code: #pascal
Program Boolean23;
Var
N,a,b,c,d:Integer;
Begin
ReadLn(N);
a := (N Div 1000) Mod 10;
b := (N Div 100) Mod 10;
c := (N Div 10) Mod 10;
d := N Mod 10;
WriteLn((a = d) And (b = c));
end.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, М.Э.Абрамян, истинность высказывания, четырехзначное число