я выбирал задания у которых больше всего .
надеюсь тебе это решение
1
var i:integer;
begin
for i:=2 to 100 do
if(i mod 2 = 0) then writeln(i);
end
2
Var
a: Real;
i,n: Integer;
Begin
Writeln
a:=0
for i:=1 to n do
a:= a + sgr(i);
end
Writeln
Readln
end.
6
Var
N1, N2, M, i: Longint
Begin
Write( Wwedite N1= `)
ReadLn (N2)
if (N1=0) and (N2=0) then writeLn;
if N1>N2 then M:= N1 else M:= N2;
i:=M -1;
Repeat
Inc(i);
Until ((i mod N1)=0) and ((i mod N2)=0);
WriteLn ;
end.
12.
program N99210889
const n=10
s: longint = 1
var i: byte;
begin
s: = s+ Term;
Term: = Term×2
end
writeln(s)
readln
end.
C# 8.0:
using System;
...
public static void InsertToArr<T>(ref T[] Arr, in T Value, in int Index){
T[] NewArr = new T[Arr.Length + 1];
for (int i = 0; i < Index; i++) NewArr[i] = Arr[i];
NewArr[Index] = Value;
for (int i = Index + 1; i < NewArr.Length; i++) NewArr[i] = Arr[i-1];
Arr = NewArr;
}
...
Console.ReadLine(); //skips N
var Arr =Array.ConvertAll(Console.ReadLine().Split(' '),int.Parse);
var temp = Console.ReadLine().Split(' ');
InsertToArr(ref Arr, int.Parse(temp[0]), int.Parse(temp[1])-1);
foreach (int i in Arr) Console.Write(i + " ");
6,4,2 вот так вроде бы и не благодарите