Предмет: Информатика,
автор: Мaруся98
Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. желательно сделайте в таблице
Ответы
Автор ответа:
0
Паскаль:
var x,y,m,b:real;
begin
write('Введите x, y: ');
readln(x,y);
m:=(x+y)/2;
b:=2*x*y;
if x<y then
begin
x:=m;
y:=b
end
else
begin
x:=b;
y:=m
end;
writeln('x=',x,'; y=',y);
end.
Блок-схема во вложении.
var x,y,m,b:real;
begin
write('Введите x, y: ');
readln(x,y);
m:=(x+y)/2;
b:=2*x*y;
if x<y then
begin
x:=m;
y:=b
end
else
begin
x:=b;
y:=m
end;
writeln('x=',x,'; y=',y);
end.
Блок-схема во вложении.
Приложения:

Автор ответа:
0
Ой спасибо тебе огромное еще раз,с меня была бы шоколадка если бы были знакомы))))ладно,спасибо еще раз))
Автор ответа:
0
Ладно, разрешаю тебе самой съесть мою шоколадку)))
Автор ответа:
0
аа даже так да?))) можно?))
Автор ответа:
0
Можно)))
Автор ответа:
0
ух ты ,круто))
Похожие вопросы
Предмет: Математика,
автор: gajdakdariy
Предмет: Русский язык,
автор: Аноним
Предмет: Алгебра,
автор: ayana309949d
Предмет: Физика,
автор: solonikov1717