Опубликовано 6 лет назад по предмету Информатика от Kandr1985

Помогите пожалуйста с информатикой

Ответ

Ответ дан archery

var x, y: real;begin readln(x); writeln('Вариант 1'); if x >= 0 then y := x * x else y := 2 * x - 5; writeln('y=', y); writeln('Вариант 2'); if x < 1 then y := x * x - 2 * x else if x > 2 then y := cos(x) else y := sqrt(x + 5); writeln('y=', y); writeln('Вариант 3'); x := 0.1; repeat writeln('x=', x, ', y=', x * x - 1); x := x + 0.1; until x >= 20;end.
1. Ответ
  
  Ответ дан archery
  
  Делалось на PascalABC, думаю на обычном тоже пройдет

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 10 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 10 месяцев назад

Из каких неживых частей состоит экосистема

Другие предметы - 10 месяцев назад

На какие расы делятся население земли

Другие предметы - 10 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 10 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: