Напишите коды в с++ дано значення відстані у міліметрах. складіть програму переводу цього значення у метри. екран повинен мати вигляд: відстань у мм –> 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
Ответы
Using System;
public class Test
{
public static int Main()
{
Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика
int n=Convert.ToInt32(Console.ReadLine());
double[] Arr=new double[n];
double e, max=0;
for(int i=0;i<Arr.Length; i++)
{
Arr[i]=(int)(rnd.Next(1,99));
Console.Write(Arr[i]+" ");
e=Math.Abs(Arr[i]);
if(e>max) max=e;
}
Console.WriteLine("\nmax={0:f1}",max);
return 0;
}
}
Пример
15
56 9 1 94 34 42 46 71 2 27 91 37 54 31 66
max=94.0
public class Test
{
public static int Main()
{
Random rnd=new Random(DateTime.Now.Millisecond); // иниц. датчика
int n=Convert.ToInt32(Console.ReadLine());
double[] Arr=new double[n];
double e, max=0;
for(int i=0;i<Arr.Length; i++)
{
Arr[i]=(int)(rnd.Next(1,99));
Console.Write(Arr[i]+" ");
e=Math.Abs(Arr[i]);
if(e>max) max=e;
}
Console.WriteLine("\nmax={0:f1}",max);
return 0;
}
}
Пример
15
56 9 1 94 34 42 46 71 2 27 91 37 54 31 66
max=94.0
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Найти количество решений системы логических уравнений.
Автор: Смирнов-Оськина
с заданием: Запишите числа в развёрнутой форме 1) 2357 2) 123, 456 3) 456789, 0005
Автор: endyurans2ooo
Сколько байт информации содержит сообщение объёмом 0, 625 кбайт?
Автор: besson89
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.