Даны числа x, y, z. минимальное из них удвоить. в паскале авс
Answers & Comments
daniilkey
//Даны числа x, y, z. минимальное из них удвоить. var x,y,z:integer; min:longint; begin min:=2000000000; readln(x); readln(y); readln(z); if x < min then min:=x; if y < min then min:=y; if z < min then min:=z; writeln(min*2); end.
Answers & Comments
var x,y,z:integer;
min:longint;
begin
min:=2000000000;
readln(x);
readln(y);
readln(z);
if x < min then min:=x;
if y < min then min:=y;
if z < min then min:=z;
writeln(min*2);
end.