var
nach,i:integer;
hh,mm:integer;
bol_per,per:integer;
prodol:integer;
kol,mesto:Integer;
begin
write('vvedite vremja nachala dnja v formate "hh mm" - ');
readln(hh, mm);
write('vvedite prodolgitelnost pari v minutah - ');
readln(prodol);
write('vvedite prodolg. bolschogo pereriva - ');
readln(bol_per);
write('vvedite prodolg. obichnogo pereriva - ');
readln(per);
write('vvedite nomer pari pered bolschim pererivom - ');
readln(mesto);
write('vvedite kolichestvo par v den - ');
readln(kol);
for i:=1 to kol do
begin
writeln(hh, ':', mm); { begin }
mm := mm + prodol;
hh := hh + (mm div 60);
mm := mm mod 60;
writeln(hh, ':', mm); { end }
if i = mesto then mm := mm + bol_per
else mm := mm + per;
hh := hh + (mm div 60);
mm := mm mod 60;
end;
readln;
end.
циклы, задача на циклы |