A=45 b=14
a:=45div14=3
b:=3*14=42
a:=42div3=14
a=42 b=14
<em>// PascalABC.NET 3.2, сборка 1345 от 24.11.2016</em>
begin
var a,b,c:real;
Write('Введите a,b,c: '); Read(a,b,c);
Writeln(min(c,max(a,b)))
end.
<u>Пример</u>
Введите a,b,c: 8.2 -0.1 1.2
1.2
Var k,x,a:integer;
Begin
x:=100;
k:=0;
repeat
a:=x div 10;
if (x mod a)=0 then
begin
writeln(x);
k:=k+1;
end;
x:=x+1;
until k=70;
End.