Св ! обе решить тремя способами (for, while, repeat) 1. вывести последовательность чисел на экран 12, 24, 36, , n 2. найти сумму чисел 6, 12, 18, , n

1.1)var n,i: integer; begin writeln('введите число n'); readln(n); for i: =1 to n do begin if (i mod 12=0) then write(i,' '); end; end. 1.2)var n,i: integer; begin writeln('введите число n'); readln(n); i: =1; while (i< =n) do begin if (i mod 12=0) then write(i,' '); i: =i+1; end; end.1.3)var n,i: integer; begin writeln('введите число n'); readln(n); i: =1; repeat if (i mod 12=0)then write(i,' '); i: =i+1; until (i> n); end. 2.1)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); for i: =1 to n do beginif (i mod 6=0)then s: =s+i; end; writeln('сумма равняется ',s); end.2.2)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); i: =1; while (i< =n) do begin if (i mod 6=0) then s: =s+i; i: =i+1; end; writeln('сумма равняется ',s); end.2.3)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); i: =1; repeat if (i mod 6=0) then s: =s+i; i: =i+1; until (i> n); writeln('сумма равняется ',s); end.

Var a,b,n: real; begin read(a,b); n: =exp(b*ln(a)); writeln(n: 3: 3); end.