Ответы на вопрос:
Var x: real; begin readln(x); if(x> 8) then x: = x/4 else x: =x*5; writeln(x); end.
Популярно: Информатика
-
Продолжите фразы: а)формальный исполнитель б)неформальный исполнитель в) д)алгоритм...
kolisnyk9802.12.2021 12:39 -
Построить график прямой в кумире в чертежнике y=2x+1...
nastya36842167818.02.2021 04:52 -
Cклавиатуры ввести три целых числа, найти: а) количество отрицательных нечетных...
alixegp073ii04.04.2020 23:16 -
Сообщение содержит 256 символов. объем сообщения 64 байта. мощность алфавита использованого...
света97906.09.2020 03:42 -
1)строение на паскаль. 2) условный оператор 3)цикл с предусловием 4) цикл с параметром...
arsenenkodiana613.09.2020 21:52 -
Программа в pascal, находит среднее арифметическое между n чисел...
katyastrilchuk03.07.2020 06:32 -
Сколько мл 20% раствора соляной кислоты потребуется для приготовления 3л 0,15...
MrNikita520.04.2020 23:47 -
1. Представить число 219 как Число с фиксированной запятой формата слово со знаком...
ayer111.07.2022 03:24 -
До іть будь ласка,буду дуже вдячна)...
Gurusergo26.11.2020 12:47 -
Реши уравнение 2.4 :х=1.2:16...
ezdinaa06.12.2021 02:05