Даны числа x, y, z. минимальное из них удвоить. в - вопрос №8769425 от 3344227p06s57 11.12.2020 04:43

Question

Информатика: Даны числа x, y, z. минимальное из них удвоить. в паскале авс

3344227p06s57 · Answer

//Даны числа 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.