f=x+a,4amp;lt;xamp;lt;7   x-a,10amp;lt;xamp;lt;12   x*aamp;lt;ост случаиpascal abc

F=x+a,4lt;xlt;7
x-a,10lt;xlt;12
x*alt;ост случаи
pascal abc

Задать свой вопрос
1 ответ
Var
  a,x,f:integer;

begin
  Write('x=');
  Readln(x);
  Write('a=');
  Readln(a);
  if (xgt;4) and (xlt;7) then f:=x+a
  else if (xgt;10) and (xlt;12) then f:=x-a
  else f:=x*a;
  Writeln('f=',f)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт