Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Даны 2 числа. Большее из этих чисел поделить на 2. Меньшее возвести в квадрат. Вывести сумму этих чисел

Ответ оставил Гость

Var a,b,c:real;
begin
writeln(введите два числа);
readln(a,b);
if a>b then begin
a:=a/2;
b:=sqr(b);
c:=a+b;
writeln(c)
end
else
begin
b:=b/2;
a:=sqr(a);
c:=a+b;
writeln(c);
end;
end.