program E8;
var a, b, c, v: real;
begin
writeln('введите значения длины, ширины,высоты');
readln(a,b,c);
v:=a*b*c;
writeln('v=', v:4:2);
readln;
end.
1) 145 (10 сс) - 10010001 (2 сс)
145 (10 сс) - 221 (8 сс)
145 (10 сс) - 91 (16 сс)
2) 854 (10 сс) - 1101010110 (2 сс)
854 (10 сс) - 1526 (8 сс)
854 (10 сс) - 356 (16 сс)
Объяснение:
145 (10 сс) - 10010001 (2 сс)
145 делим в столбик на 2 без остатка. 145/2=72 (145-144=1), далее 72/2=36 (72-72=0), 36/2=18 (36-36=0), 18/2=9 (18-18=0), 9/2=4 (9-8=1), 4/2=2 (4-4=0), 2/2=1 (2-2=0). Записываем в обратном порядке полученные цифры: 10010001.
145 (10 сс) - 221 (8 сс)
145 делим в столбик на 8 без остатка. 145/8=18 (145-144=1), 18/8=2 (18-16=2). Записываем в обратном порядке полученные цифры: 221
145 (10 сс) - 91 (16 сс)
145 делим в столбик на 16 без остатка. 145/16=9 (145-144=1).
Записываем в обратном порядке полученные цифры: 91
program _1_2;
uses crt;
var
dlina, shirina, vysota:real;
begin
ClrScr;
TextColor(14);
Writeln('Вычисление объёма параллелепипеда.');
Writeln('Введите исходные данные:');
write('Длина (см) -> ');
readln(dlina);
write('Ширина (см) -> ');
readln(shirina);
write('Высота -> ');
readln(vysota);
writeln('Объём: ',(dlina*shirina*vysota):7:2);
Repeat
Until KeyPressed;
end.