15 баллов!
Нужно составить программу в Паскаль.
Если сумма различных целых чисел х, у, z меньше 30, то заменить меньшее из у и х суммой двух других. В противном случае увеличить все числа на 10
Нужно составить программу в Паскаль.
Если сумма различных целых чисел х, у, z меньше 30, то заменить меньшее из у и х суммой двух других. В противном случае увеличить все числа на 10
More Questions From This User See All
Answers & Comments
Verified answer
Var x,y,z:integer;begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
if x+y+x<30
then if x<y then x:=x+y else y:=x+y
else begin x:=x+10; y:=y+10; z:=z+10 end;
writeln('x=',x,' y=',y,' z=',z);
end.
Пример:
x=7
y=12
z=9
x=19 y=12 z=9