// 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
var
x:integer;
begin
readln(x);
if(x mod 2 = 0) then writeln('Четное')
else writeln('Нечетное');
end.
<span>ОТВЕТ 3
1.</span> <span>D:\Школа\Ученики\
2.</span><span> D:\Школа\Ученики\Успеваемость
</span>3. <span>D:\Школа\Ученики\Успеваемость\Отличники</span>
Program p1;
uses srt;
var a,p,sum:integer;
begin
clrscr;
writeln("read p and a");
read(p);
read(a);
sum:=p*a;
write(sum);
readkey;
end;