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

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

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

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

Question

Информатика

Митрич

20 декабря, 10:04

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

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

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

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

+3

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