Призначення функцій Int, Round, Trunc, Frac, якого типу стає результат та наведіть по 1 прикладу до кожної функції

160

174

Посмотреть ответы 1

Ответы на вопрос:

POLTIT1

Информатика

4,6(81 оценок)

Program p1; var sr,sr1: real; p,i: integer; begin write('введите число учащихся: '); readln(p); sr: =0; sr1: =0; for i: =1 to p do begin write('введите средний ученика: '); readln(sr1); sr: =sr+sr1; end; writeln('средний группы равен: ',sr/p); end.