Даны числа: x, y. Вычислите: z=x+y, если [tex]x \leq y[/tex], и z=x-y в противном случае.
Написать программу в паскале.
Answers & Comments
DagotPavel
Program zananija_com; var x, y, z : integer; begin writeln('Введите х'); readln(x); writeln('Введите y'); readln(y); if (x <= y) then z := x + y else z := x - y; writeln('z = ', z); readln(); end.
2 votes Thanks 1
c1ba
Оу.. Ваш ответ наиболее полон. Спасибо огромное. :-) Только у меня вопрос: пробелы обязательны?
Answers & Comments
var x, y, z : integer;
begin
writeln('Введите х');
readln(x);
writeln('Введите y');
readln(y);
if (x <= y) then z := x + y
else z := x - y;
writeln('z = ', z);
readln();
end.