Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B<M Then
M:=B;
if C<M Then
M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.
// F#
[<EntryPoint>]
let main argv =
let getRandomCollection n =
let rand = new System.Random()
Array.map (fun x -> rand.Next(-10, 10)) [| 1..n |]
let inputArray = getRandomCollection 15
printf "source array: %A\n" (inputArray |> Array.toList)
// First part
printf "numberToCheckOnEqual: "
let numberToCheckOnEqual = System.Console.ReadLine() |> System.Int32.Parse
let indecesEqualsToNumber =
inputArray
|> Array.mapi (fun i x -> (x, i))
|> Array.filter (fun (x, i) -> x = numberToCheckOnEqual)
|> Array.map (fun (x, i) -> i)
|> Array.toList
printf "%d equals to %d: %A\n" (indecesEqualsToNumber |> List.length) numberToCheckOnEqual indecesEqualsToNumber
// Second part
printf "a: "
let a = System.Console.ReadLine() |> System.Int32.Parse
printf "b: "
let b = System.Console.ReadLine() |> System.Int32.Parse
let sum =
inputArray.[a..b]
|> Array.sum
printf "sum of array [%d..%d]: %d\n" a b sum
// Last part
let finalArray =
inputArray
|> Array.map (fun x -> if x < 0 then x*x else x)
printf "final array: %A" finalArray
System.Console.ReadKey true |> ignore
0
N=2^i
9=2^i
Если взять 2^3, будет 8. 8 меньше 9, значит берем следующую степень за 3
Ответ: 4
Потому что они управляют работой компьютера и помогают пользователю осуществить диалог с компьютером.
программой называют потому. что опер.система - это комплекс программ. а не одна маленькая программка, которая управляет работой компьютера
S = ’’;
А = ’BUTTERBROT’;
В = ’FLOWER’;
delete(A, 7,4); // A = ’BUTTER’
S:=A + copy(B,1,2)+’Y’; // S = ’BUTTER’ + ’FL’ + ’Y’ = ’BUTTERFL<span>Y’</span>
