Напишите программку в паскале с подмогою div и mod! Заблаговременно СПАСИБО!!!Вводится

Question

Напишите программку в паскале с подмогою div и mod! Заблаговременно СПАСИБО!!!Вводится

Напишите программку в паскале с подмогою div и mod! Заблаговременно СПАСИБО!!!
Вводится трехзначное целое число. Получить новое число, записанное этими же цифрами, но в оборотном порядке.

Задать свой вопрос

Никита
Информатика
2019-03-30 11:29:02
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Определите количество вещества.д) 11,2 м(кубических) хлораОпределите количество молекул и

пожалуйста переведите на казахский язык спасиб. Мой классЯ учусь в

Мама вульгарна в гости к своей подруге. Добралась она туда пешком

ПомогитеСреднее арифметическое двух чисел одинаково 19, а их разность одинаково 4.

Скорость прямолинейного движения тела выражено формулой v=9t^2-2t-8(м/с)отыскать путь,

Выпишите элементы металлы из предложенного ряда хим элементов: Zn, S,

Безотлагательно !!! ПЛАЧУ 50 БАЛЛОВ!! СПАСИТЕ!!! ОЧЕНЬ Необходимо!!!Лида идёт в

Как кусок гранита объемом 0,004 м3 легче в воде, чем в

Больному прописано лечущее средство, которое нужно принимать по 0,5 г 4 раза

Задание 1. Спишите, раскрывая скобки:Некоше(н,нн)ые, низкие кустики широко расстилались передо

Милена Прышкина · Answer 1 · 2019-03-30 11:30:24+3:00

Var A:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
WriteLn(A mod 10,Абс((A div 10) mod 10),Абс(A div 100));
End.

Примеры работы программы:

Введите трёхзначное число: 123
321
Введите трёхзначное число: -987
-789

Любовь Мищутина · Answer 2 · 2019-03-30 11:36:20+3:00

Var a,a1,a2,a3,b:integer;
begin
write('a = ');
readln(a);
a1:=абс(a) div 100;
a2:=абс(a) div 10 mod 10;
a3:=абс(a) mod 10;
b:=sign(a)*(a3*100+a2*10+a1);
writeln(b);
end.

Пример:
a = -456
-654

О проекте

Напишите программку в паскале с подмогою div и mod! Заблаговременно СПАСИБО!!!Вводится

Добро пожаловать!