For15 pascal дано вещественное число a и целое число n (> 0 вывести a в степени n: an = a•a••a (числа a перемножаются n раз) и ещё for16 если найдете плз отмечу как лучший, если решите полностью for15 и for16 пример решения: uses pt4; bar a: real; k: integer; begin task('for5'); read(a); for k: =1 to 10 do write (a*0, 1*k) end.

For15 program fofgogjoj; var n,i : integer; a,p : real; begin writeln('введите число.'); readln(a); writeln('введите степень'); readln(n); p: =1; for i: =1 to n do begin p: =p*a; end; if a< 0 then p: =1/p; writeln(p : 6: 3); readln; end.for16 program fofgogjoj; vari, n:   integer; a, p:   real; beginwriteln('введите число: '); write(' a = '); readln(a); writeln('введите показатель степени (n > 0): '); write(' n = '); readln(n); writeln('все степени числа ', a,  ' от 1 до ', n,  ': '); p: = 1; for  i: =1  to  n  dobeginp: = p*a; writeln(' ', a,  ' в степени ', i,  ': ', p: 0: 2)endend.

Var n,i,s,p: integer; begin write('n = '); readln(n); //а s: =0; p: =1; for i: =1 to n do   begin   s: =s+(2*i-1); p: =p*(2*i-1);   end; writeln('s = ',s,' p = ',p); //б s: =0; p: =1; for i: =1 to n do   begin   s: =s+2*i; p: =p*(2*i);   end; writeln('s = ',s,' p = ',p); //в s: =0; p: =1; for i: =1 to n do   begin   s: =s+3*i; p: =p*(3*i);   end; writeln('s = ',s,' p = ',p); //в s: =0; p: =1; for i: =1 to n do   begin   s: =s+4*i; p: =p*(4*i);   end; writeln('s = ',s,' p = ',p); end. пример: n = 4 s = 16 p = 105 s = 20 p = 384 s = 30 p = 1944 s = 40 p = 6144

Program test; var vozrast: integer; bol, mistake: boolean; begin bol : = true; write('введите возраст ребенка: '); readln(vozrast); writeln(); if (vozrast > 6) then writeln('ребенок не может посещать детский сад') else if (vozrast < = 0) then begin writeln('некорректный ввод данных! '); mistake : = true; end else begin writeln('ребенок может посещать детский сад'); bol : = false; end; if (mistake = false) then begin if (bol = false) then writeln('ребенок станет школьником через ', 7 - vozrast, ' лет') else writeln('ребенок уже в школе'); end; end.