Задачи по Паскалю. Условный оператор.

1. Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением.

2. Найдите решение уравнения ах + в=0, если оно существует, если а=0

3. написать программу удвоения меньшего из двух чисел

Question

Информатика

Иовилла

9 марта, 12:18

Задачи по Паскалю. Условный оператор.

1. Даны два действительных числа меньшее из них замените полусуммой их, а большее их произведением.

2. Найдите решение уравнения ах + в=0, если оно существует, если а=0

3. написать программу удвоения меньшего из двух чисел

+1

Ответы (1)

Знаешь ответ?

Васюха · Answer 1

1)

program chik2;

var a, b, c:real;

begin

readln (a, b);

if (a
c:=a;

a: = (a+b) / 2;

b:=b*c;

end;

if (a>=b) then begin

c:=b;

b: = (a+b) / 2;

a:=a*c;

end;

writeln (a,' ', b);

end.

2)

program chik;

var a, x, b:real;

begin

readln (a, b);

if (a=0) and (b0) then writeln ('НЕТ решений');

if (a0) then begin

x:=-b/a;

writeln (x);

end;

end.

3)

program chik3;

var a, b:real;

begin

readln (a, b);

if (a
if (b
writeln (a,' ', b);

end.