Самая минимальная единица измерения это бит.
1 байт=8 бит
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
Ответ: только что был этот вопрос: сделал такую же программу
program Test;
var
n, a, i, nmin, amin: Integer;
begin
Write ('Количество чисел: ');
ReadLn (n);
nmin := 1;
amin := MaxInt;
WriteLn ('Введите ', n, ' чисел:');
for i := 1 to n do begin
ReadLn (a);
if a < amin then begin
amin := a;
nmin := i;
end;
end;
WriteLn ('Вывод: ', amin, ' ', nmin);
ReadLn;
end.
Самые главные недостатки:
- высокие требования к аппаратной составляющей компьютера: к его оперативной памяти, быстроте работы процессора и т.д.,
- необходимость больших временных затрат на создание моделей всех объектов сцены, могущих оказаться в поле зрения камеры. Конечно, такая работа стократно окупается результатом,
- меньшую свободу в создании изображения, чем в двухмерной графике. Создавая объект карандашом на бумаге или средствами 2D-графике на экране, можно совершенно свободно искажать пропорции объектов, пренебрегать законами перспективы и пр. В 3D-формате это возможно только в наиболее мощных пакетах, но даже в них это требует дополнительных усилий и изобретательности,
- необходимость постоянно отслеживать взаимное положение объектов в составе сцене, в частности, при создании 3D-анимации. Так как объекты 3D-графики «бестелесны», они легко проникают друг в друга и важно контролировать отсутствие ненужного контакта между ними.
Var n: integer;
begin
readln(n);
n:=n mod 7;
if n=0 then writeln(7) else writeln(n);
readln;
<span>end.</span>