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

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

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

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

Question

Информатика

Васюта

27 ноября, 03:40

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

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

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

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

+2

Ответы (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.