Учеба и наука

Решено

помогите с программкой на паскале - вопрос №440691

Известны три натуральных числа C– часы, M – минуты, S –секунды. Написать программу используя условный оператор, котораяопределяет время через 15 секунд. может кто нибудь поможет с этой задачей??? писать надо на паскале АВС

октябрь 26, 2012 г.

Сообщить о нарушении

Всего ответов: 1

Валентина

3-й в

411 отзыв

program pr;

label p;

var c,c1, m,m1,s,s1:integer;

begin

p: writeln('vvedite chas, min,sec');

readln(c,m,s);

if (c>24) or (m>=60) or (s>=60) then

begin

writeln('nevernoe vremya');

writeln('vvedite verno');

goto p;

end;
writeln('bylo ',c,':',m,':',s);

s:=s+15;

if s>=60 then begin m:=m+1; s:=s-60;

if m>=60 then begin c:=c+1; m:=m-60 end;

if c>=24 then c:=c-24;

end ;

writeln(c,':',m,':',s);

end.