Составьте таблицы изменения переменных для циклов: а) s: =0; p: =1; for i: =1 to 5 do begin p: =p*i; s: =s+p: end; б) c: =2; for i: =1 to 4 do c: =1/(1-c); в) s: =0; p: =1; for i: = 1 to 5 do begin p: =-p*2; s: =s+p; end;

Var     a,k,s,m: integer;     p: real; begin write('введите натуральное число: '); readln(a); k: =0; s: =0; p: =1; while a> 0 do     begin     m: =a mod 10;     if m = 3 then k: =k+1     else           begin           if m > 5 then s: =s+m;           if m > 7 then p: =p*m;           end;     a: =a div 10;     end; writeln('k = ',k); writeln('s = ',s); writeln('p = ',p); end. var     a: integer;     max,min,m: byte; begin write('введите натуральное число: '); readln(a); max: =0; min: =10; while a> 0 do     begin     m: =a mod 10;     if m< min then min: =m;     if m> max then max: =m;     a: =a div 10;     end; writeln('min = ',min); writeln('max = ',max); end.

#include < cstdlib> #include < iostream>   using namespace std;   int main()   {    int a[4][5],i,j,min;     for(i=0; i< 4; i++)        {              for (j=0; j< 5; j++)        {                cin> > a[i][j];                 cout< < endl;               }        }        for(i=0; i< 4; i++)       {         min=a[i][1];               for (j=0; j< 5; j++)          {                      cout< < a[i][j]< < " ";                               if(a[i][j]< min) min=a[i][j];                     }                  cout< < endl;                           cout< < "min ="< < min< < endl;       } }