Кодировка Unicode: 16бит=2байт
в предложении 52 символа, проверяем оба вариант.
1) 52симв.*16бит=832бит
2)52симв.*2байт=104байта
из 4х вариантов подходит только 2,
ответ 2.
не знаю как требуют у вас, но я постарался сделать более менее понятно
uses crt;
var b,x:real;
begin
write('Введите длину ткани: ');
readln(x);
write('Введите стоимость квадратного метра ткани: ');
readln(b);
writeln('Стоимость ткани длиной ',x,' метров равна ',0.8*x*b);{кусок длиной 1.25 м и шириной 0.8 метра имеет площадь 1 квадратный метр и стоит ровно B рублей}
end.
Var a,b,c:real;
Begin
Write('Введите время движения: '); readln(a);
Write('Введите длину пути: '); readln(b);
c:=b/a;
write('Скорость равна: ', c);
<span>End.</span>