"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решение задач по теме "Действия с целыми числами в Pascal"

Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.

program two;
var
   X:integer;
begin
   write('Старое трехзначное число = ');
   readln(X);
   writeln('Новое число = ',X mod 100, X div 100);
end.

 

 

Назад