Ответы на вопрос:
Var a: real; begin write('введите число: '); readln(a); if abs(a)> 5 then write('$') else write('@') end.
Популярно: Информатика
-
Сколько дюймов в 18 точках ?...
karandash7277220.06.2022 04:39 -
1. Блок-схему к программе, объяснение к программе (на рисунку)...
Andylov07.09.2022 01:41 -
Даны х,у,z. напишите программу для вычисления а, b: а=2x+3y-z/3+2x;...
Rubin2202.12.2020 08:35 -
1)составить алгоритм нахождения количества положительных элементов...
SerStroka07.12.2022 06:48 -
Информационный объём текста, подготовленного с компьютера, равен...
chelikteliklol16.09.2022 15:47 -
Компьютер вышел из строя. известно, что : 1) если монитор неисправен,...
Zarxis14.05.2020 04:31 -
Разгадайте кроссворд ..компьютерные обьекты 4.группа файлов ,имеющая...
ivan48809.06.2023 13:18 -
Какие бывают функции в информатике...
megolodoon03.06.2023 08:31 -
1. К текстовым процессорам относятся: А Access; Б Excel; В Word;...
dianahohlova10.03.2022 23:12 -
Предназначение функции ShowMessage() a)вывод окна, показывающего...
y4enik502.02.2020 11:51