===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18
40, так как m*n = 20*40, то m= 20, n =40.
Var a:real;
begin
write('введите число: ');read(a);
writeln(int(a),' тенге ', round(100*frac(a)),' тиыны');
<span>end.</span>