a - 11010000 10110000
б - 11010000 10110001
в - 11010000 10110010
г - 11010000 10110011
д - 11010000 10110100
е - 11010000 10110101
ё - 11010001 10010001
ж - 11010000 10110110
з - 11010000 10110111
и - 11010000 10111000
й - 11010000 10111001
к - 11010000 10111010
л - 11010000 10111011
м - 11010000 10111100
н - 11010000 10111101
о - 11010000 10111110
п - 11010000 10111111
р - 11010001 10000000
с - 11010001 10000001
т - 11010001 10000010
у - 11010001 10000011
ф - 11010001 10000100
х - 11010001 10000101
ц - 11010001 10000110
ч- 11010001 10000111
ш - 11010001 10001000
щ - 11010001 10001001
ъ - 11010001 10001010
ы - 11010001 10001011
ь - 11010001 10001100
э - 11010001 10001101
ю - 11010001 10001110
я - 11010001 10001111
Цифры:
1 - 110001
2 - 110010
3 - 110011
4 - 110100
5 - 110101
6 - 110110
7 - 110111
8 - 111000
9 - 111001
10 - 110001 110000
Ошибка - 0000000000000000
// а 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.