Program Ylia ;var A,B,C: real;BeginReadln (a,b);if a>b thenbeginC:=a*belseC:=a/b;end;writeln (c);end.
Вот:)
Ну а так, спррооси у учителя икт, он объяснит
if a>b then c:=a*b
else c:=a/b;
writteln(c);
readln;
End.
Program Ylia ;
var A,B,C: real;
Begin
Readln (a,b);
if a>b then
begin
C:=a*b
else
C:=a/b;
end;
writeln (c);
end.
Вот:)
Ну а так, спррооси у учителя икт, он объяснит