---

Тут ви можете виконати завдання чи задати питання по змiсту цього уроку.

1 (1) 2013-09-25 10:23:17 //23.09.2013 р. {Clock} const p=(12*60)/11; var h,m,i,d:longint; t:double; begin Read(h,m); t:=60*h+m; i:=0; while t>i*p do i:=i+1; d:=Trunc(i*p-t); WriteLn(d); end.

1 (1) 2015-01-09 22:36:13 У мене питання:чому мій варіант програми проходить не всі тести? var h, m, n:longint; t, t1:real; begin readln( h, m); t:=(12*60)/11; t1:=h*60+m; while t1>t do t1:=t1-t; n:=trunc(t-t1); writeln( n); end.

Повернутися до уроку

Повернутися до перелiку уроків курсу