// 1
double sum = 0; for(int i = 0; i < 6; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;
// 2
for(int i = (sizeof(arr)/sizeof(*arr)) - 1; i >= 0; i--){ std::cout << arr[i]; }
// 3
double sum = 0; for(int i = 0; i < 5; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;
Вот, QBasic
INPUT x
PRINT 3*x^6*x^2-7
Валя, Вася,Вова,вода,волк,Наташа,панамка ананас
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
// F#
[<EntryPoint>]
let main argv =
let sum =
[0..200]
|> Seq.where (fun x -> x % 4 = 0)
|> Seq.fold (fun sum x -> sum + x) 0
System.Console.WriteLine sum
System.Console.ReadKey true |> ignore
0
<span>
</span>