program Average va a, b, c, d: real integerPartA, integerPartB, integerPartC, integerPartD: integer average: real begi // Вводим 4 числ write('Введите число A: ') readln(a) write('Введите число B: ') readln(b) write('Введите число C: ') readln(c) write('Введите число D: ') readln(d);
// Выводим результа writeln('Целая часть числа A: ', integerPartA) writeln('Целая часть числа B: ', integerPartB) writeln('Целая часть числа C: ', integerPartC) writeln('Целая часть числа D: ', integerPartD) writeln('Среднее арифметическое целых частей: ', average:0:2) end.
program Average
va
a, b, c, d: real
integerPartA, integerPartB, integerPartC, integerPartD: integer
average: real
begi
// Вводим 4 числ
write('Введите число A: ')
readln(a)
write('Введите число B: ')
readln(b)
write('Введите число C: ')
readln(c)
write('Введите число D: ')
readln(d);
// Находим целые части чисе
integerPartA := trunc(a)
integerPartB := trunc(b)
integerPartC := trunc(c)
integerPartD := trunc(d);
// Находим среднее арифметическое целых часте
average := (integerPartA + integerPartB + integerPartC + integerPartD) / 4;
// Выводим результа
writeln('Целая часть числа A: ', integerPartA)
writeln('Целая часть числа B: ', integerPartB)
writeln('Целая часть числа C: ', integerPartC)
writeln('Целая часть числа D: ', integerPartD)
writeln('Среднее арифметическое целых частей: ', average:0:2)
end.