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.
24л 13л 11л 5л - емкость бочек
далее пойдут количества воды в каждой из бочек после каждого перливания
0 13 11 0
0 13 6 5
6 13 0 5
6 13 5 0
6 8 5 5
0 8 11 5
8 0 11 5
8 11 0 5
8 13 3 0
8 8 3 5
<u>8 8 8 0</u>
Условие у нас следующее.
1)в 16ричном виде число двузначное и оканчивается на А
2)в 8ричном виде число трехзначное
п1 соответствует 16 цифр, потому просто все их можно переберать и по очереди перевести в 8ричный вид.
или можно посмотреть значения краев 3значных 8ричных.
111_8 = 49_16 - значит 4А уже будет 3значным 8ричным
777_8 = 1FF_16 - мы не выйдем за верхний край
т.е. нам подходят числа 4А, 5А, 6А, 7А, 8А, 9А, АА, BA, CA, DA, EA, FA - всего 12 шт
Проверяем
# Код на ruby 2.2.3p173
for i in 0..15
s = i.to_s(16) + "a"
puts "X_16 = #{s}, X_10 = #{s16 = s.to_i(16)}, X_8 = #{s16.to_s(8)}"
end
X_16 = 0a, X_10 = 10, X_8 = 12
X_16 = 1a, X_10 = 26, X_8 = 32
X_16 = 2a, X_10 = 42, X_8 = 52
X_16 = 3a, X_10 = 58, X_8 = 72
X_16 = 4a, X_10 = 74, X_8 = 112
X_16 = 5a, X_10 = 90, X_8 = 132
X_16 = 6a, X_10 = 106, X_8 = 152
X_16 = 7a, X_10 = 122, X_8 = 172
X_16 = 8a, X_10 = 138, X_8 = 212
X_16 = 9a, X_10 = 154, X_8 = 232
X_16 = aa, X_10 = 170, X_8 = 252
X_16 = ba, X_10 = 186, X_8 = 272
X_16 = ca, X_10 = 202, X_8 = 312
X_16 = da, X_10 = 218, X_8 = 332
X_16 = ea, X_10 = 234, X_8 = 352
X_16 = fa, X_10 = 250, X_8 = 372
Все верно. Ответ 12
// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.
var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.
//Дана длина ребра куба а. Найти его объем и площадь поверхности
Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
begin
writeln ('вы ввели не допустимое значение попробуйте еще раз');
writeln ('введите длину ребра куба');
readln (a);
end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.
