• Разветвление в цикле.
    Вариант 4
    Написать программу на алгоритмическом языке PASCAL с использованием любого оператора цикла.

    question img

Ответы 3

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

      katz6w9k
    • 5 лет назад
    • 0
  • Ну... Как-то так)var  x, y: real;begin  x := 0.5;  while x <= 25 do  begin    if x > 20 then      y := sin(x)    else      if x <= 5 then        y := sqr(cos(x))      else        y := sqrt(x);    writeln('y(', x, ') = ', y);    x := x + 1.5;  end;end.
    • Автор:

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

Войти через Google

или

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

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

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