Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составить алгоритм решения следующей задачи даны 2 числа х и найдите сумму наибольшего из этих чисел и наименьшее увеличенного в 3 раза "

Ответ оставил Гость

Var
x1,x2:integer;
a1,a2:integer;
begin
writeln (введите число Х1 );
readln (x1);
writeln (введите число Х2 );
readln (x2);
a1:=x1+x2*3;
a2:=x2+x1*3;
if x1>x2 then writeln (Х1+(Х2*3)=,a1) else
writeln (X2+(X1*3)=,a2);
end.