Программа на паскале. спортсмен принял участие в соревнавании. даны переменые h1, m1, s1, -время старта, h2, m2, s2-время финиша. требуется результат спортсмена в секундах, мин, часах.

program sport; var h1, m1, s1, h2, m2, s2, h, m, s, st, fin, p, i : integer; begin

writeln('старт.'); write('количество часов '); read(h1); write('минут '); read(m1); write('секунд '); read(s1);

st: =s1+m1*60+h1*3600;

writeln('финиш.'); write('количество часов '); read(h2); write('минут '); read(m2); write('секунд '); read(s2);

fin: =s2+m2*60+h2*3600;

p: =fin-st;

i: =p;

s: =p mod 60;

p: =p div 60;

m: =p mod 60;

p: =p div 60;

h: =p mod 60;

 

writeln('итог - ',h,' часов ', m,' минут ',s,' секунд '); write(' всего ',i,' секунд.');

end.

если под колобком вы подразумеваете программу, а все что после точки за ненужный нам набор цифр и символов, то тогда мой ответ удовлетворит ваши запросы.

 

c++

--text_delim--

 

#include < iostream>

 

void main(void) {

    system("title kolobok");

    std: : wcout.imbue(std: : locale(".866"));

    std: : wcout < < l"kolobok's say: \n мимоза\n сказка\n теремок" < < std: : endl;

    system("pause > nul");

}

1)var t: array [1..12] of real;

      i: integer;

begin

  for i: =1 to 12 do readln(t[i]);

  writeln('средняя температура зимних месяцев: '+t[1]+t[2])/3): 0: 3);

  writeln('средняя температура весенних месяцев: '+t[4]+t[5])/3): 0: 3);

  writeln('средняя температура летних месяцев: '+t[7]+t[8])/3): 0: 3);

  writeln('средняя температура осенних месяцев: '+t[10]+t[11])/3): 0: 3);

end.

2)var t: array[1..10] of integer;

          c: array[1..10] of real;

          i: integer;

          s,s1: real;

begin

  s: =0;

  for i: =1 to 10 do begin writeln('введите количество товара'); readln(t[i]) ; end;

  for i: =1 to 10 do begin writeln('введите цену товара'); readln(c[i]); end;

  for i: =1 to 10 do begin s1: =t[i]*c[i];

                                    s: =s+s1;

                            end;

  writeln('общая стоимость всех покупок: ',s: 0: 3);

end.