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.

Answer 3

Я могу помочь вам с написанием кода на Паскаль. Вот пример кода, который решает вашу задачу:

var
  d, f: real; // объявляем переменные d и f типа вещественное число
begin
  readln(d); // считываем значение d с клавиатуры
  if d > 0 then // если d больше нуля, то
    f := d / 2 // f присваиваем значение d / 2
  else // иначе
    f := d + 12.5; // f присваиваем значение d + 12.5
  writeln(f); // выводим значение f на экран
end.

Надеюсь, это вам поможет.