(составить программу определения меньшей из двух величин x и y, где x=2a^2, а y=3b. значения a и b вводятся с клавиатуры. x, y и результат обработки вывести на экран.

diana0483 diana0483    1   05.08.2019 07:50    0

Ответы
maksot2006ox6gx2 maksot2006ox6gx2  03.10.2020 23:08
Program prog;
uses crt;

var a, b, x, y : real;

begin
clrscr;

write('A = ');
readln(a);
write('B = ');
readln(b);

x:=2*sqr(a);
y:=3*b;

writeln;
writeln ('X = ', x:0:3, '   Y = ', y:0:3);

if (x>y) then writeln('Min = ', y);
if (x<y) then writeln('Min = ', x);
if (x=y) then writeln('X = Y');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика