program z1; var n,m:integer; rost,nine_a,nine_b:real; begin write('Введите количество учинеков 9а класса: '); readln(n); write('Введите количество учинеков 9б класса: '); readln(m); writeln('Вводите рост каждого из учинеков 9а по очереди'); for i:integer :=1 to n do begin write(i,': '); read(rost); nine_a:=nine_a+rost; end; nine_a:=nine_a/n; // средний рост 9а writeln('Вводите рост каждого из учинеков 9б по очереди'); for i:integer :=1 to m do begin write(i,': '); read(rost); nine_b:=nine_b+rost;end; nine_b:=nine_b/n; // средний рост 9б if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.'); end.
VAR seconds, minutes :Integer;
BEGIN
seconds := 3416;
minutes := seconds DIV 60;
WriteLn(minutes);
ReadLn
END.
Объяснение:
Первая строка задаёт целочисленные переменные.
BEGIN и END - начало и конец программы соответственно.
3 строка - присвоение переменной seconds значения 3416.
4 строка - целочисленное деление, т. е. деление на 60 без остатка.
WriteLn печатает результат 56, т. е. 56 полных минут.
ReadLn не даёт программе закрыться, пока пользователь этого не захочет.