Войти Регистрация Спроси ai-bota

Составить алгоритм в паскаль очень

Ответ:

LeraLis201

13.10.2020 05:23

program a; var x:real; begin readln(x); if x>2 then x:=1/(x*x) else x:=1+x/2; writeln(x); end.

Объяснение:

0,0(0 оценок)

Популярные вопросы: Информатика

SAIIIEK

16.09.2021 01:38

1)при размерах экрана (разрешении) 640•480 точек и количестве цветов 256 найти необходимый объём видеопамяти в кбайт. 2)для хранения растрового изображения размером...

KrisKvon

13.06.2022 02:44

Чему будет равно значение переменной z после выполнения фрагмента программы x := 23; y := 95; x := x mod 2 + y div 3; z := x + y div 10 mod 2;...

Maryyy100

11.06.2021 16:41

7. Электронные таблицы, моделирование: Опять геометрия : 2 Дан фрагмент электронной таблицы в режиме отображения формул: file Значение ячейки B2 скопировали во...

пати24

20.11.2022 03:07

Всоревновании участвуют 137 атлетов. какое минимальное количество бит необходимо, чтобы закодировать номер каждого атлета?...

elinaaak

04.09.2021 03:26

Выражение и найдите его значение: -6х(х-3у)+7у(-3х-у)+4х(-2х+у); х=0.3 у=-0.1...

Фари228

04.09.2021 03:26

Перепишите следующие предложения. подчеркните participle i и participle ii и установите их функции (определение, обстоятельство или часть глагола-сказуемого). переведите...

Sasha200420071982197

04.09.2021 03:26

149: за какое время велосепедист проедет расстояние 36 км если его скорость 12км/час?...

ProgramAkkaunt

04.09.2021 03:26

Красфорд с главным словом в середине: опера...

екатерина696

04.09.2021 03:26

Для работы в открытом космосе в скафандре у космонавта имеется запас кислорода на 400 минут. сколько процентов от первоначального запаса кислорода осталось после...

vikusya20001

04.09.2021 03:26

Каким образом можно защитить свои права как потребителя?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку