Написать программу,которая вычисляет сколько часов,минут,сек.,в n-кол-во;дней,недель,месяцев.Моя проблема в том,что я не знаю как соединить 3 процедуры в 1 основную программу или что сделать, чтобы в основной программе находилось 3 процедуры,а сам принцип решения я знаю,на присланном фото есть решение n-кол-лво дней,также можно отдельно для остальных,но нужно чтобы было все в 1 проге.Помогите пожалуйста!
Если n - количество месяцев, то для точного расчета нужно знать какие это месяцы (количество дней в месяцах различно). Если упрощенно считать, что в месяце 30 дней, то программа будет такой: Program Pkek; var n,h,m,s:longint; Procedure Day(n1:integer; var h1,m1,s1:longint); begin h1:=n1*24; m1:=n1*60*24; s1:=n1*360*24; end; Procedure Week(n1:integer; var h1,m1,s1:longint); begin h1:=n1*24*7; m1:=n1*60*24*7; s1:=n1*360*24*7; end; Procedure Month(n1:integer; var h1,m1,s1:longint); begin h1:=n1*24*7*30; m1:=n1*60*24*7*30; s1:=n1*360*24*7*30; end; begin writeln('Введите целое число n:'); readln(n); Day(n,h,m,s); writeln('Если ',n,' - число дней, то:'); writeln('h=',h,' m=',m,' s=',s); Week(n,h,m,s); writeln('Если ',n,' - число недель, то:'); writeln('h=',h,' m=',m,' s=',s); Month(n,h,m,s); writeln('Если ',n,' - число месяцев, то:'); writeln('h=',h,' m=',m,' s=',s); <span>end.
Введите целое число n: 7 Если 7 - число дней, то: h=168 m=10080 s=60480 Если 7 - число недель, то: h=1176 m=70560 s=423360 Если 7 - число месяцев, то: <span>h=35280 m=2116800 s=12700800</span></span>
Program p1; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); For i:=0 to 1 do Begin Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; End; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); <span>End.
</span>Это реализовано с помощью цикла while:<span>
Program p2; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); While i<>2 do Begin Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; i:=i+1; End; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); End.
</span>Это реализовано с помощью цикла repeat:
Program p3; Var a1,a2,k,i:integer; Begin Write('Введите число: '); Readln(a1); repeat Begin i:=i+1; Write('Введите число: '); Readln(a2); if a2>a1 then k:=k+1; a1:=a2; End; until i=2; if k=2 then Writeln('Эта последовательность является возрастающей') else Writeln('Эта последовательность не является возрастающей'); <span>End.</span>
1) <span>if a > b then begin a:= b ; end else b:=a; Вот правильный вариант еnd; был лишний так как еще одного begin не было 2) Var s:integer;k:real; begin s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end else k:=s ;writeln(k) end. Тут у вас ; с запятой были потеряны после исправления ответ 127</span>