Целая часть от деления 39 div 8 = 4 Остаток от деления 39 mod 8 = 7 Получаем число в 8-ой системе счисления: 47 0.95*8 = 7.6 (целая часть 7) 0.6*8 = 4.8 (целая часть 4) 0.8*8 = 6.4 (целая часть 6) Получаем число в 8-ой системе счисления: 746 и так получаем 47.746 по моему так
// Известно, что Х кг шоколадных конфет стоит А рублей, // а 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.
Остаток от деления 39 mod 8 = 7
Получаем число в 8-ой системе счисления: 47
0.95*8 = 7.6 (целая часть 7)
0.6*8 = 4.8 (целая часть 4)
0.8*8 = 6.4 (целая часть 6)
Получаем число в 8-ой системе счисления: 746
и так получаем 47.746
по моему так