Question

Найти значение выражения y=x+5 при x>0, в противном случае найти значение выражения y=8-5x

Answer 1

Var
  x, y: Integer;

begin
  write('x=');
  readln(x);
  if x > 0
    then y := x + 5
  else
    y := 8 - 5 * x;
  writeln('y=', y);
end.

Answer 2

Паскаль: 

Program first;
Var y,x;
begin
writeln('Введите х');
readln(x);
if x>0 then
y:=x+5;
else 
y:=8-5x

writeln('y = ',y);
end.


С++
int main()
{
int x,y;
cout<<"Введите х"<<endl;
cin>>x;
if(x>0)
{
y=x+5;
}
else
{
y=8-5x
}
cout<<"Y = "<<y;
system("pause");
return 0;
}