program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.
Поставить антивирус, платный/бесплатный, не скачивать всякие ресурсы с неизвестных источников, не заходить на неизвестные сайты и т.д
Если речь идет о базе данных или подобном
Запись состоит из полей, а в целом содержит данные об объекте
Каждое поле содержит некую отдельную характеристику объекта, название характеристики и тип данных содержащихся в поле определяется при создании таблицы
а) var x, y: double;
б) var n: integer; a, b, s: double;
Под буквой б: n - кол-во тетрадей и обложек; a, b - цена тетради и обложек; s - общая цена покупки.
860=1100100 в двоичной
860=35С в шестнадцатиричной
860=1534 в 8чной