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.
1. На Америку движется два урагана, но мне кажется все жители в безопасности.
2. 1 килобайт (Кб) = 1024=2 в 10 степени байт
3. Молоко является источником кальция.
От 0до 255-254 либо нет потомучто не получается как у тебя ответы
1 байт - 8 бит т. е от 00000000=0 до 11111111=255,
все что между ними, - это разные переборы нулей и единиц ни разу не повторяющихся, например 01001100 или 00001111 и т. д. таких переборов как раз 255, 00000001=1 00000010=2 00000011=3 00000100=4 и т. д. 11111110=254
2 Мбайт
но могу ошибаться ((