Uses crt; (Подключение внешних файлов)
Var
ves: real;
m: real;
Begin
clrscr;
write('ves=');
read(ves);
m: = ves * 0.65;
writeln ('Масса молекул кислорода', m:2:1, 'кг.');
readkey;
End.
На C++
<span>#include <iostream.h>
const n=10;
void main()
{
int b,A[n]={1,2,3,4,5,6,7,8,9,0};
b=A[n-1];
for(int i=n-2;i>=0;i--)
A[i+1]=A[i];
A[0]=b;
for(i=0; i<n;i++)
cout<< A[i]<<',';
}
</span>
// F#
[<EntryPoint>]
let main argv =
let getArray =
let rand = new System.Random();
[1..4] |> Seq.map (fun x -> rand.Next 10)
let A = getArray;
let B = getArray;
let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
System.Console.ReadKey true |> ignore
0