Question

Пожалуйста,если можно,то на Паскаль
Дана переменная d. Если d>0, то f присвоить значение d/2, иначе f присвоить значение d+12,5​

Answer 1

Відповідь:

Program dz;

VAR

d:integer;

f: Real;

BEGIN

if d > 0 then

BEGIN

 f := d/2;

 write(f);

END

else

 f := d + 12.5;

 write(f);

END.

Пояснення:

Если не нужно то write() удалиш

Answer 2

Pascal

var

 d, f: real;

begin

 readln(d);

 if d>0 then

   f:=d/2

 else

   f:=d+12.5;

 writeln(f:2:2);

end.