Вводится последовательность ненулевых чисел.0-конец последовательности. подсчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.

program msdos; uses crt; var  r,sum: real;   neg: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   neg: =0;   sum: =0;   r: =1;   writeln('введите ненулевое число');   writeln('(или введите 0 для конца последовательности) ');   while r< > 0 do      begin          write('ввод: ');             readln (r);           if r< 0 then neg: =neg+1;           if r> 0 then sum: =sum+r;       end;   writeln();   writeln('количество отрицательных чисел ',neg);   writeln('сумма положительных чисел ',sum); end.

var

a,k,s: integer;

begin

repeat

write (' = > '); readln(a);  

if a< 0 then k: =k+1 else s: =s+a;  

until a=0;

writeln ('summa: ',s);

writeln ('kol-vo: ',k);

readln;

end.

#include < iostream>

using namespace std;

int main()   {

    int h, m, s, time;    

   

    cin > > h > > m > > s > > time;    

   

    int hour, minute, second;

   

    second = time % 60;

   

    time -= second;

   

    time = time/60;

   

    minute = time % 60 ;

   

    hour = time / 60;

   

    if ( s + second > 60 )   {

            s = (s+second) % 60;

           

            if ( m + minute + 1 > 60 )   {

                m = (m+minute+1) % 60;

               

                if ( h + hour + 1 > = 24 )   {

                    h = (h+hour+1) % 24;

                } else {

                    h+=hour+1;

                }

               

            } else if( m + minute + 1 == 60 ) {

                m = 0;

               

                if ( h + hour + 1 > = 24 )   {

                    h = (h+hour+1) % 24;

                } else {

                    h+=hour+1;

                }

               

            } else {

                m = m+minute;

               

                if ( h + hour > = 24 )   {

                    h = (h+hour) % 24;

                } else {

                    h += hour;

                }

            }

               

           

           

        } else if ( s+second == 60 )   {

            s = (s+second) % 60;

           

            if ( m + minute + 1 > 60 )   {

                m = (m+minute+1) % 60;

               

                if ( h + hour + 1 > = 24 )   {

                    h = (h+hour+1) % 24;

                } else {

                    h+=hour+1;

                }

               

            } else if( m + minute + 1 == 60 ) {

                m = 0;

               

                if ( h + hour + 1 > = 24 )   {

                    h = (h+hour+1) % 24;

                } else {

                    h +=hour+1;

                }

               

            } else {

                m += minute;

               

                if ( h + hour > = 24 )   {

                    h = (h+hour) % 24;

                } else {

                    h = h + hour;

                }

            }

               

           

        } else {

            s = s+second;

           

            if ( m + minute > 60 )   {

                m = (m+minute) % 60;

               

                if ( h + hour + 1 > = 24 )   {

                    h = (h+hour+1) % 24;

                } else {

                    h+=hour+1;

                }

               

            } else if( m + minute == 60 ) {

                m = 0;

               

                if ( h + hour + 1 > = 24 )   {

                    h = (h+hour+1) % 24;

                } else {

                    h += hour+1;

                }

               

            } else {

                m += minute;

               

                if ( h + hour > = 24 )   {

                    h = (h+hour) % 24;

                } else {

                    h += hour;

                }

            }

               

           

        }

       

        cout < < h < < ": " < < m < < ": " < < s;

}

Var   s,ss: string;   i: integer; begin   write('введите строку: '); readln(s);   for i: =length(s) downto 1 do   begin ss: =s[i]+s[i]; insert(ss,s,i) end;   writeln('результат: ',s) end. пример решения введите строку: я умею писать программы! результат:             ! var   s: string;   i: integer; begin   write('введите слово: '); readln(s);   for i: =length(s) downto 1 do insert(' ',s,i);   writeln('результат: ',s) end. пример решения введите слово: паскаль результат:   п а с к а л ь var   s1,s2,s3: string;   i: integer; begin   write('введите первое слово: '); readln(s1);   write('введите второе слово той же длины: '); readln(s2);   s3: ='';   for i: =1 to length(s1) do s3: =s3+s1[i]+s2[i];   writeln('результат: ',s3) end. пример решения введите первое слово: корова введите второе слово той же длины: собака результат: ксоорбоавкаа