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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Нина20071

09.12.2022 15:38

Создайте в теле программы тоннель переменную с – счетчик для номера цвета (ее начальное значение задайте равным 9). на каждом шаге цикла увеличивайте значение переменной с на 10...

alvd1986

14.04.2021 03:45

Ть зробити в с++ за do while потрібно знайти максимальне число, мінімальне число і спроб вводу чисел ось приклад...

elizavetaliza261204

22.06.2020 15:42

Напишите программу которая создаёт одномерный массив из 400 позиций заполняет его целыми случайными числами и считает количество честных и ннчётных значений. вывести результат подсчета...

bahakendjaev11

06.04.2021 04:11

Как сделать так что бы текст двигался по окну. на языке программирование c#...

kirillarhipenc1

19.12.2022 15:26

Придумайте сказку про гаджеты заранее огромное...

BoomerLass

22.06.2020 01:07

В электронной таблице значение формулы =СУММ(В1:В2) равно 10. Чему равно значение ячейки В3, если значение формулы =СРЗНАЧ(В1:В3) равно 7?...

вика2832

17.08.2022 16:41

Для передачи по каналу связи сообщения состоящего только из букв б г т у решили использовать неравномерный по длине код б=110 г=101 т=100ю. Как нужно закодировать букву У, чтобы...

romannikodov

19.03.2021 02:33

Постройте графическую модель Вашей комнаты, указав на ней расположение всех предметов мебели, окон и дверей. Запишите название построенной модели (карта, схема, чертеж, график)....

elzarik08

26.12.2022 08:51

на питон 3 Сменить регистр символаНапишите функцию CaseChange(c), меняющую регистр символа, то есть переводящую заглавные буквы в строчные, а строчные — в заглавные, остальные символы...

камка7

03.12.2022 03:15

Втаблице dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (dat[1] — количество голосов, поданных за первого исполнителя, dat[2] — за второго...

Ответ:

isanatoliy25199

12.10.2020 21:50

var x,f:real;

begin

readln(x);

if x>0 then f:=x else f:=x*1;

writeln(f)

end.

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

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

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