Задачи по информатике написать задачу в паскале. Условия такие: "Даны целые числа х и у. Если х>у, то необходимо найти произведение этих чисел, иначе их частное". Смог написать только так, чтобы находилось произведение, а как сделать "Иначе" я не понимаю. Вот, посмотрите:
Program zadacha;
var x,z,y : integer;
begin
readln (x,y);
If x>y then
z:=x*y
writeln(z);
end.
Program zadacha;
var x,z,y : integer;
begin
readln (x,y);
If x>y then
z:=x*y
writeln(z);
end.
Answers & Comments
Program zadacha;
var x,y : integer;
z:real;
begin
readln (x,y);
If x>y then
begin
z:=x*y;
writeln('x*y = ',z);
end
else
begin
z:=x/y;
writeln('x/y = ',z);
end;
end.
else - иначе. Перед этим оператором не ставится точка с запятой.