Var sec, min, hour, day: integer;begin write ('Введите секунды: '); readln (sec); min := sec div 60; sec := sec mod 60; hour := min div 60; min := min mod 60; day := hour div 24; hour := hour mod 24; writeln (day, ' суток ', hour, ' часов ', min, ' минут ', sec, ' секунд '); end.
Извиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? Если нет, то я через часок другой вброшу короткое решение, а пока это.
program n_1; type m= array [1..5] of integer; var a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer; b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m; c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m; d,d,d2,d3,d4,d5,d6,d7,d8,d8: m; begin randomize; b,b1,b2,b3,b4,b5,b6,b7,b8,b9:= random; c,c1,c2,c3,c4,c5,c6,c7,c8,c9:= random; d,d,,d2,d3,d4,d5,d6,d7,d8,d8:= random; a:= (b+c+d) div 3; a1:= (b1+c1+d1) div 3; a2:= (b2+c2+d2) div 3; a3:= (b3+c3+d3) div 3; a4:= (b4+c4+d4) div 3; a4:= (b5+c5+d5) div 3; a6:= (b6+c6+d6) div 3; a7:= (b7+7c+d7) div 3; a8:= (b8+c8+d8) div 3; a9:= (b9+c9+d9) div 3; writeln ('Ученик-', a); writeln ('Ученик 1-', a1); writeln ('Ученик 2-', a2); writeln ('Ученик 3-', a3); writeln ('Ученик 4-', a4); writeln ('Ученик 5-', a5); writeln ('Ученик 6-', a6); writeln ('Ученик 7-', a7); writeln ('Ученик 8-', a8); writeln ('Ученик 9-', a9) end.
uses crt; var a,i,j,n:integer; begin writeln('ВВедите кол. конфет в (кг)'); read(a); n:=0; if a>=10 then begin n:=n+ a div 10; a:=a-(a div 10*10); end; if (a>=5) and (a<10) then begin n:=n+ a div 5; a:=a-(a div 5*5); end; if (a>=1) and (a<5) and (a<10) then begin n:=n+ a div 1; a:=a-(a div 1*1); end; writeln('Общее количество коробок = ',n); end.
2 задача uses crt; var a,i,j,n:integer; begin writeln('Введите кол. суток'); read(a); writeln('Количество часов в ',a,' сутках = ',a*24); writeln('Количество минут в ',a,' сутках = ',a*24*60); writeln('Количество секунд в ',a,' сутках = ',a*24*60*60); end.
