uses crt;
var i,a:word;
begin
clrscr;
for i:=100 to 999 do
begin
a:=i div 100+(i mod 100)*10;
if a*4 div 3=i then writeln(i,' - ',a);
end;
readln
end.
Результат работы программы
Определить трехзначное число, обладающее следующими свойствами: число начинается цифрой. Если эту цифру перенести в конец числа, получиться число составляющее 3/4 исходного числа. Вывести на печать оба этих числа — Pascal(Паскаль)