Напишите коды в с++
дано значення відстані у міліметрах. складіть програму переводу цього значення у метри. екран повинен мати вигляд:
відстань у мм –> 765432
765432 мм = 765.432 м
дано значення часу у хвилинах. складіть програму переводу цього значення у години. екран повинен мати вигляд:
час у хв –> 345
345 хв = 5.75 год
дано ребро куба а. складіть програму обчислення об’єму цього куба v=a*a*a. екран, повинен мати вигляд:
ребро (см) –> 9.5
об’єм куба: 857.38 куб. см.
складіть програму, що знаходить різницю двох звичайних дробів. екран повинен мати вигляд:
чисельник першого дробу –> 3
знаменник першого дробу –> 4
чисельник другого дробу –> 2
знаменник другого дробу –> 3
3/4-2/3= 1/12 =0.08
Var
A:array[1..10000] of real;
n,i:integer;
Begin
Randomize;
Write('n = ');
ReadLn(n);
Write('A(',n,'):');
For i:= 1 to n do
Begin
A[i]:=random*(2*n+1)-n;
Write(' ',A[i]:0:1)
End;
WriteLn;
i:=0;
For n:= 1 to n-1 do
if (A[n] > 0)and(A[n+1] > 0) then i:=i+1;
WriteLn('k = ',i);
End.
Ввод с клавиатуры, без массива:
Var
A,A2:real;
n,k:integer;
Begin
Write('n = ');ReadLn(n);
Read(A);
k:=0;
For n:= 2 to n do
Begin
A2:=A;
Read(A);
if (A > 0)and(A2 > 0) then k:=k+1;
End;
WriteLn('k = ',k);
End.