Решения задач acmp.ru
Главная
Вход
Регистрация
Четверг, 01.10.2020, 05:21Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0030 Часы

Скачать файл можно после просмотра рекламы:

05.06.2012, 02:27
var f:text; s1,s2:string; hh1,hh2,mm1,mm2,ss1,ss2:string;
    i, j:integer; h1,h2,m1,m2,sec1,sec2:integer;
    a:array [0..9] of longint;
    flag:boolean;
begin
 for i:=0 to 9 do a[i]:=0;

  Assign(f,'input.txt');
  reset(f);
  readln(f,s1);
  readln(f,s2);
  close(f);

  hh1:='';
  mm1:='';
  ss1:='';
  hh2:='';
  mm2:='';
  ss2:='';

  i:=1;
 while (s1[i]<>':') do
   begin
     hh1:=hh1+s1[i];
     inc(i);
   end;
  inc(i);
 while (s1[i]<>':') do
   begin
     mm1:=mm1+s1[i];
     inc(i);
   end;
  for j:=i+1 to length(s1) do ss1:=ss1+s1[j];

  i:=1;
 while (s2[i]<>':') do
   begin
     hh2:=hh2+s2[i];
     inc(i);
   end;
  inc(i);
 while (s2[i]<>':') do
   begin
     mm2:=mm2+s2[i];
     inc(i);
   end;
  for j:=i+1 to length(s2) do ss2:=ss2+s2[j];

  val(hh1,h1,i);
  val(mm1,m1,i);
  val(ss1,sec1,i);
  val(hh2,h2,i);
  val(mm2,m2,i);
  val(ss2,sec2,i);

  flag:=false;
 while (flag=false) do
   if (h1=h2) and (m1=m2) and (sec1=sec2) then flag:=true else
   begin
     inc(a[h1 div 10]);
     inc(a[h1 mod 10]);
     inc(a[m1 div 10]);
     inc(a[m1 mod 10]);
     inc(a[sec1 div 10]);
     inc(a[sec1 mod 10]);

     inc(sec1);
    if (sec1=60) then
      begin
        sec1:=0;
        inc(m1);
      end;
    if (m1=60) then
      begin
        m1:=0;
        inc(h1);
      end;
    if (h1=24) then h1:=0;
   end;

     inc(a[h2 div 10]);
     inc(a[h2 mod 10]);
     inc(a[m2 div 10]);
     inc(a[m2 mod 10]);
     inc(a[sec2 div 10]);
     inc(a[sec2 mod 10]);

   Assign(f,'output.txt');
   rewrite(f);
  for i:=0 to 9 do writeln(f,a[i]);
   close(f);
end.
Категория: Pascal | Добавил: shum
Просмотров: 1653 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020