Странный алгоритм :)
Надпись слева я не разобрал, оставил со знаком вопроса, подправите потом этот текст. И, если в сообщениях x1 и x2 нужно было печатать в виде числа, то поставьте их перед текстом и отделите запятой, вот так: (x1, ' съест').
Сама программа:
var
x1, x2, y: real;
begin
Println('Введите значения x1, x2, y через пробел и нажмите Enter');
Readln(x1, x2, y);
x1 := y - x1;
x2 := y - x2;
if x2 < 0 then
x2 := -x2;
if x1 < 0 then
x1 := -x1;
if x1 = x2 then
Println('В улетит?')
else if x1 > x2 then
Println('x2 съест')
else Println('x1 съест');
end.
Стоимость со скидкой=Цена со скидкой*кол-во.
Стоимость с учётом НДС=Стоимость со скидкой*(1-0,2)=Стоимость со скидкой*0,8.
Кодировка Unicode: 16бит=2байт
в предложении 52 символа, проверяем оба вариант.
1) 52симв.*16бит=832бит
2)52симв.*2байт=104байта
из 4х вариантов подходит только 2,
ответ 2.
<span><span><em>function proverka(i :integer):boolean;
</em>
<em>begin
if i mod 2=0 then
</em>
<em>proverka:=true
</em>
<em>else
</em>
<em>proverka:=false;
</em>
<em>end;</em></span></span>
6+2=8 6-2=4 8+4=12 8-4=4 4+4=8 шестикутник-6,зірочка-2. ромбик-8,кружечок-4