1. Информатика
  2. Составьте программу с использованием

Составьте программу с использованием процедуры,которая вычислит следующее значение:

если x< 1 то y=x+3;

если x> 1 то y=x-3;

на паскале

Редискa Редискa    2   05.12.2019 19:32    1

Ответы
kristiniiiiiii kristiniiiiiii  06.08.2020 10:49

Program anton4nk;

uses crt;

var x, y : real;

begin

writeln('Если x<1, Выполняется y = x+3 | Если x>1, Выполняется y = x-3');

writeln;

write('Введите число x: ');

readln(x);

if x<1 then

y:=x+3

else

y:=x-3;

writeln('Результат: ', y);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kristiniiiiiii kristiniiiiiii  01.08.2019 04:20
Определите количество информации в книге, которая содержит 1800 страниц, на каждой страницы 20 строк, в каждой строке 70 символов. запишите ответ в битах, килобайтах и гигабайтах....
Marlie Marlie  01.08.2019 04:20
Отсортировать слова в порядке лексикографического возрастания и в качестве ответа вывести слово, находящееся ровно посередине (медиану массива). количество слов нечетно. sam is a multi-file...
Иванчик1111 Иванчик1111  01.08.2019 04:20
Последовательность чисел генерируется лямбда-функцией: def generate_number(): return lambda random_seed: (random_seed*693 + 5)%100 number = generate_number() член последовательности...
pharaohandtrasher pharaohandtrasher  01.08.2019 04:00
Создайте последовательность a при следующего генератора: def pseudo_list(): for i in range(n): yield (i*9876+1024)%1000 n = 10**6 + 1 a = # элементы данной последовательности следует...
antiangel18 antiangel18  01.08.2019 03:50
Дан список из 20 элементов, созданный при my_list = [(lambda x: (x*87+12)%100)(i) for i in range(20)] доставая из него значения при операции x = my_list.pop() и проверяя длину оставшегося...
NikaNeo NikaNeo  01.08.2019 03:50
Последовательность чисел генерируется функцией: def number(random_seed): return (random_seed*693 + 5)%100 член последовательности под номером i равен number(i). обратите внимание на...
akimova5 akimova5  01.08.2019 03:50
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 32 строки, в каждой строке 35 символов. определите информационный объём статьи в одной из кодировок unicode,...
shevchenkotanu shevchenkotanu  01.08.2019 03:50
Будущее будущим, а кушать хочется всегда, поэтому коля отправился в местную молочную лавку. в 2084 году кефир в литровых пластиковых бутылках по a копеек за штуку и в литровых бутылках...
Arisha666 Arisha666  01.08.2019 03:40
Иснова я, и снова мой любимый паскаль.. дан массив, состоящий из целых чисел. напишите программу, которая подсчитывает количество положительных чисел среди элементов массива. входные...
tur5 tur5  31.01.2021 21:21
Ребят с этими задачкамиPascal ABC​...

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