Сделал подробно. Двумя решениями. Через оператора if и else (Вам нужен только if, else для ознакомления)
--
IF
--
2)
Program ypriz;
var a,b,cc: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
Writeln('Значение a, b: ',a);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
a:=10*a;
b:=10*b;
if a+b < 0 then
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.
--
ELSE
--
2)
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10;
if z > 5 then
y:=z-10;
Writeln('Значение y: ',y);
END.
или
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10
else
y:=z-10;
Writeln('Значение y: ',y);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.
Тысячи путей ведут к заблуждению, к истине - только один.
Для начала надо посчитать, сколько всего символов в данном предложении, следует считать знаки препинания и пробелы.
Посчитав все знаки (Итого:57), мы получаем, что вес предложения 57 байт, переводим в биты, то есть умножаем на 8 (1 байт = 8 бит):
57*8=456.
№2.
Кодировка Unicode - это кодировка, каждый символ которой весит 16 бит. Итак, я посчитала количество знаков в предложении (Итого:32). Дальше: 16*32=512 бит.
№3.
Итак, мы видим, что из 16-битной кодировки получилась 8-битная, а это значит, что она уменьшилась вдвое.
8x=800
x=100 (у тебя ошибка, я посмотрела аналогичные задания, отличающиеся только значениями)
№4 допишу в комментарии.