Дано трёхзначное число, поменять местами сотни и единицы и сравнить эти числа??
5-9 класс
|
var a, b, c: integer;
begin
readln(a);
b := (a mod 10 * 100) + (a mod 100 div 10 * 10) + (a div 100);
if (a > b) then
writeln(a, ' > ', b)
else if (a = b) then writeln(a, ' = ', b)
else writeln(a, ' < ', b);
end.
Другие вопросы из категории
флеш-память, если на ней осталось 100 Кбайт свободного места.
а)2 раза
б)4 раза
в)5 раз
8 раз
Читайте также
поменялись местами .
1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.
2. Дано 4 значное число поменять местами 1 и 2 цифру местами
3. Дан диаметр круга найти его площадь (формула S=п*R).
Я примерно знаю как писать но всеровно нуждаюсь в помощи
Мои мысли:
program z1;
uses crt;
var ... : integer;
begin
дальше всё в тумане
буду рад за решённые 1 или 2 задачи
счисления 110001000,1001 ДВОИЧНЫЙ 4)сколько единиц в двоичной записи шестнадцатеричного числа F523С? 5)сравните два числа 101111двоичный 47 восмиричный помогиииииииитеееее