• Пожалуйста, помогите. Нужно решить в Pascal ABC, тремя способами: с помощью операторов for, while и repeat.

    question img

Ответы 4

  • Огромное спасибо
    • Автор:

      sadielxdw
    • 6 лет назад
    • 0
  • Огромное спасибо
    • Автор:

      myles874
    • 6 лет назад
    • 0
  • Пожалуйста
  • //Pascal ABC.NET v3.0 сборка 1111//forVar  x:integer;begin for x:=-3 to 8 do  begin;   if x>5 then writeln('y=(',x,')',18*x);   if (2<=x) and (x<=5) then writeln('y=(',x,')',9*x+10);   if x<2 then writeln('y=(',x,')',-12*x);  end;end.//whileVar  x:integer;beginx:=-3; while x<>9 do  begin;   if x>5 then writeln('y=(',x,')',18*x);   if (2<=x) and (x<=5) then writeln('y=(',x,')',9*x+10);   if x<2 then writeln('y=(',x,')',-12*x);   inc(x);  end;end.//repeatVar  x:integer;beginx:=-3; repeat   if x>5 then writeln('y=(',x,')',18*x);   if (2<=x) and (x<=5) then writeln('y=(',x,')',9*x+10);   if x<2 then writeln('y=(',x,')',-12*x);   inc(x); until x=9;end.
    • Автор:

      cloudessi
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years