Question

Привет,помогите с информатикой. Вот программа в паскале: var x,y:integer;d:real; const PI=3.14; begin randomize; x :=random(1,679); y :=random(1,345); d:=PI*x*y; if d>600 then d:=d-x-y else d:=d+x-y; end. надо вывести d,у меня не получается(

Answer 1

В паскале для вывода используется write() и writeln(), в скобкпх пишется то, что нужно вывести. Поэтому нужно добавить writeln(d); wtiteln(y);

Answer 2

Привет! Я рад помочь с этой программой.

Для вывода значения переменной d на экран в Pascal нужно использовать процедуру writeln, например:

scssCopy code
writeln('d = ', d);

Также, в вашей программе есть ошибка в операторе if, вместо > нужно использовать символ >:

goCopy code
if d > 600 then
  d := d - x - y
else
  d := d + x - y;

После этих исправлений ваша программа будет выглядеть следующим образом:

goCopy code
var
  x, y: integer;
  d: real;
  const
  PI = 3.14;

begin
  randomize;
  x := random(1, 679);
  y := random(1, 345);
  d := PI * x * y;
  
  if d > 600 then
    d := d - x - y
  else
    d := d + x - y;
    
  writeln('d = ', d);
end.

Надеюсь, это поможет вам решить проблему.