Паскаль. 1) Дано трехзначное число, нужно найти число, полученное при прочтении его цифр справа налево.
2) Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число.
3) Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.
Ответы
Ответ дал:
0
var
n, n1, n2, n3: integer;
begin
write('Введите трехзначное число: ');
readln(n);
if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа')
else
begin
n1 := n div 100;
n2 := n div 10 mod 10;
n3 := n mod 10;
writeln('1 - ', n3, n2, n1);
writeln('2 - ', n3, n1, n2);
writeln('3 - ', n2, n1, n3);
end;
end.
n, n1, n2, n3: integer;
begin
write('Введите трехзначное число: ');
readln(n);
if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа')
else
begin
n1 := n div 100;
n2 := n div 10 mod 10;
n3 := n mod 10;
writeln('1 - ', n3, n2, n1);
writeln('2 - ', n3, n1, n2);
writeln('3 - ', n2, n1, n3);
end;
end.
Вас заинтересует
1 год назад
9 лет назад
9 лет назад