program z1;
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if(a>b)then
c:=a/b;
writeln(c);
else
(c:=b/a;
writeln(c);)
end.
где ошибка
var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if(a>b)then
c:=a/b;
writeln(c);
else
(c:=b/a;
writeln(c);)
end.
где ошибка
More Questions From This User See All
Answers & Comments
Verified answer
Program z1;var a,b,c:real;
begin
writeln('введите 2 числа');
readln(a,b);
if (a>b) then c:=a/b
else c:=b/a;
writeln(c);
end.