Var a,b,c:real; begin read(a,b); writeln ('введите2 числа') var(a>b) do c:=a/b else...

Question

Var a,b,c:real;
begin
read(a,b);
writeln ('введите2 числа')
var(a>b) do
c:=a/b
else
c:=b/a
writeln('частное='c)
end.


пишет ожидался оператор

Answer 1

1. Сначала следует запрос на числа, т.е. нужно вывести строку. Затем вводятся сами числа.
2. Условный оператор записывается как "if условие then оператор1 else оператор2". Все, что после оператор1 можно отбросить.
Var a,b,c:real;
begin
writeln('введите2 числа');
read(a,b);
if(a>b) then
c:=a/b
else
c:=b/a;
writeln('частное=',c)
end.