Ввести трехзначное число а.Прменять крайние цифры числа местами.
5-9 класс
|
var
a,x:integer;
begin
writeln('Vvedite a');
readln(a);
x:=a mod 10*100;
a:=a div 10;
x:=x+a mod 10*10;
x:=x+a div 10;
writeln('resultat ',x)
end.
Другие вопросы из категории
помощью которого было записано это сообщение
1) 3018 2) 6508 3) 4078 4) 7778
Читайте также
и печатает сообщение на экране. (Трёхзначное число симметрично, если крайние цифры числа одинаковые)
Решить задачи на турбопаскале:
1.Дано натуральное число Найти сумму и произведение первых двух чисел.
2.Дано n-значное натуральное число. Правда ли что квадрат произведения цифр числа равняется кубу суммы цифр числа.
3.Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления.
program ZADACHA1;
var
a,b,c,d,d1,e:integer;
x,y,k,l:real;
begin
WRITELN('Цыбулак Максим');
READLN(a);
READLN(b);
c:=a+b;
e:=a*b;
d:=a-b;
k:=a/b;
d1:=b-a;
l:=b/a;
WRITELN('a+b=',c);
WRITELN('a-b=',d);
WRITELN('b-a=',d1);
WRITELN('a*b=',e);
WRITELN('a/b=',k);
WRITELN('b/a=',l);
m;=SQR(a);
n;=SQR(b);
o;=SQRT(a);
p;=SQRT(b);
WRITELN('квадрат числа',a,'=',m);
WRITELN('квадрат числа',b,'=',n);
WRITELN('корень числа',a,'=',o);
WRITELN('корень числа',b,'=',p);
end.
образовавшемуся двухзначному числу справа приписали вторую цифру числа x, то получилось число n. По заданному n найти число x
(значение n вводится с клавиатуры).
Найти минимальную цифру среди первых трех цифр числа, а также определить:первая или вторая цифра числа четная,или обе цифры четные,или обе цифры нечетные.Результаты вывесите на экран.