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

Напишите, , ипрограмму по этой блок-схеме

Ответ:

Marina56434655442

11.06.2020 01:22

Пишу в Pascal

Объяснение:

var

x,f:real;

begin

read(s);

if x>0 then

f:=x

else

f:=-x;

write(f);

end.

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

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

leha7534

24.12.2022 01:20

Возможно ли составить алгоритм рисования овала в pascal abc,если да то !...

ирввадрпраз

24.12.2022 01:20

Возможно ли в программе pascal abc сделать алгоритм рисования овала? если да то ....

паксуха

24.12.2022 01:20

Нарисуй в окне цепочку п из пяти цифр так, чтобы все пять утверждений были истенными: в цепочке п цифра 3 идет раньше цифры 9. в цепочке п цифра 2 идет позже цифры...

Romikkk1

21.08.2022 17:53

ИНФОРМАТИКА. ПРОГРАММА ПАЙТОНочень надо ...

Pusya102

23.02.2021 12:46

Запишите пример. формулы,в которой вычисляется произведение ячеек g5 и a8...

liwan

06.03.2022 15:45

Для подключения датчика к блоку ev3 требуется подсоединить один конец кабеля к датчику, а другой…...

davo20051

31.05.2020 16:34

Каждый месяц программист Иван обновляет пароль от компьютера и использует для этого особый шифр. Правило шифрования: 5 ⇒ 3; 3 ⇒ 1; 2 ⇒ 4; 4 ⇒ 6 и т.д. После шифрования...

HYPE111

15.03.2022 11:59

В кодировке UTF-320 каждый символ кодируется 32 битами Костя написал текст бай, аэта, водой кереки, киргизы, норвежцы-народы...

valyashchenko20

28.05.2021 16:38

Задания на использование логических функций Задание №1 Определение годности претендента в баскетбольную команду Если Условие: если рост претендента больше или равен...

Rkkshv

26.02.2021 22:18

Сколько всего слов длиной в 6 букв можно составить, если в них можно использовать первые 18 букв алфавита, причём буква а должна быть использована ровно один раз?...

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

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