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

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

Показать ответ

Ответ:

funtic20

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 оценок)

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

лох251

11.12.2020 15:06

Для чего нужно задавать ключ при создании таблицы в БД?...

vasyapupkin121212

09.02.2022 12:44

Программный код игры Футболист.Проанализируйте программный код игры. Объясните функцию каждого блока программы.(это 1 задание из СОР по информатике за раздел «Создание 2D игры на...

ivahinzeha475

22.05.2021 22:44

5 сынып 4 тоқсан информатика ТЖБ...

dalelodaryn

03.08.2020 16:58

Какой результат выдаст компьютер, в результате выполнения следующих фрагментов программ1) a:= -5; b := 3; a := a - b*2; if a b then c := b – a else c := a - b; writeln(c);2) a:=...

Малефисента1111111

05.05.2023 06:04

Твердженя яке може бути істиним або хибнимА) алгоритмБ) висловлювання В) вислів Г) пояснення ...

elena30061984

03.11.2021 21:45

Дан код с номером. Определи, какой это симол:управляющий или изображаемый. Код с номером 10...

wagnercop06s12

22.09.2022 04:29

Выясните, какой сигнал должен быть на выходе электронной схемы, если на вход подается А=1 и В=0.В ответе запишите только число....

lren1

07.11.2020 05:06

Составить алгоритм и программу для вычисления периметра и площади прямоугольного треугольника....

Tbdtbd

03.09.2020 17:27

Звукозапись - это ... Варианты ответов процесс создания звуковой информации процесс сохранения звуковой информации на каком-либо носителе с специальных устройств процесс воспроизведения...

varvara92

17.02.2020 01:23

Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=1; while i =... do begin writeln( Привет! ); i:=i+1 end; Чему будет равно зна че ние целой пе...

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

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