Предмет: Информатика,
автор: htototam
Написати программу в Турбо Паскалі!Срочно!
Дано два дійсних числа. Менше з них замінити півсумою цих чисел,а більше - їх добутком!
Ответы
Автор ответа:
1
var a, b, s, p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a<b
then begin
a:=s; b:=p;
end
else begin
a:=p; b:=s;
end;
writeln('a = ',a,' b = ',b);
end.
Интересные вопросы
Предмет: Українська література,
автор: hjzzjjsjjz
Предмет: Алгебра,
автор: olkaelka1
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: oooulya
Предмет: История,
автор: prostomasya123