Ответ:
program f;
var a,b,c,d:real;
begin
writeln('Введите два числа');
readln(a,b);
c:=(a+b)/2;
d:=a/b;
if a>0 then writeln(c)
else writeln(d);
end.
Объяснение:
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program f;
var a,b,c,d:real;
begin
writeln('Введите два числа');
readln(a,b);
c:=(a+b)/2;
d:=a/b;
if a>0 then writeln(c)
else writeln(d);
end.
Объяснение: