)составить программу на языке pascal, которая позволяет ввести с клавиатуры целое трехзначное число, проверяет, симметрично ли оно, и печатает сообщение на экране. (трёхзначное число симметрично, если крайние цифры числа одинаковые)
mamariti
3
21.05.2019 05:30
0
Другие вопросы по теме Информатика
Рита460
05.11.2019 18:14
mkagermazov
27.05.2019 01:00
lowrentij
27.05.2019 01:00
gwo
27.05.2019 01:00
SofStrelets
27.05.2019 01:00
синийлис1
17.12.2020 19:14
zooz7654Кристина
17.12.2020 19:14
MuLaYa3
17.12.2020 19:15
Raz1elGG
17.12.2020 19:16
Популярные вопросы
- Уогневушки-поскакушки 2 платочка махнет 1 - огонь в костре загорится...
2 - Дописать вопросы и ответы got a take the cakes in the cake got a...
2 - Слово край добавить или убрать буквы в конце или впереди слова или...
2 - Написать сочинение описание зимней березы...
2 - Взрослый лось съедает за сутки 20 кг корма. сколько корма съедает...
1 - Деревья сбросившие листву тучи низко плывущие над землёй моросящий...
3 - Определите последствия для нашего края похода тамерлана в 1395 г....
3 - Расположите металлы в порядке возрастания их восстановительных натрий...
3 - Расставь порядок действий вычислите 57-(36+5)-9...
3 - Найдите энергию фотона : 1) красного лямбда = 0,7мкм 2)зеленого лямбда...
1
Program task_1;
var
A, B, C : integer;
begin
read(A);
B := A;
C := 0;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
If A=C then
begin
writeln('Число симметрично')
end
else
begin
writeln('Число НЕ симметрично')
end;
end.