Даны числа x, y, z. минимальное из них удвоить. - вопрос №8769425 от onkyyyyyyy 06.06.2020 14:59

Question

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

onkyyyyyyy · 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.