Question

Написать код на Паскале, который выполняет следующие условия Если x>0 c=x*y^2 Если x<0 c=x-y Если x=0 c=x+y

Answer 1

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите х и у через пробел-');
  var c:real;
  if x>0 then c:=x*y*y
  else
    if x<0 then c:=x-y
    else c:=x+y;
  Writeln(c)
end.

Пример
Введите х и у через пробел- 3.18 -5.2
85.9872

Answer 2

Я могу помочь вам написать код на Паскале, который выполняет следующие условия:

- Если x > 0, то c = x * y^2 - Если x < 0, то c = x - y - Если x = 0, то c = x + y

Вот пример кода, который решает эту задачу:

program calculate_c;
var
  x, y, c: real;
begin
  writeln('Введите значения x и y');
  readln(x, y);
  if x > 0 then
    c := x * y * y
  else if x < 0 then
    c := x - y
  else
    c := x + y;
  writeln('Значение c равно ', c:0:2);
end.

Вы можете запустить этот код на онлайн-компиляторе Паскаля, например, [здесь]. Надеюсь, это поможет вам.