Question

Синформатикой (паскаль) написать на языке тurbo pascal программу для следующей : ввести три двухзначных числа целого типа. найти среднее арифметическое этих чисел и вывести его с использованием формата по умолчанию и явно заданного формата. vara,b,c: integer; d: real; begin writeln(‘vvedite 4,5,6’); readln(4,5,6); 5: =(4+5+6)/3; writeln(‘d= ‘,5); writeln(‘d= ‘,5: 5: 2); end. исходные данные а=4 b=5 c=6 результат работы программы:

Answer 1

Var a,b,c:integer;
d:real;
Begin
WriteLn('Vvedite 3 числа');
ReadLn(a,b,c);
d:=(a+b+c)/3;
WriteLn('d= ',d);
WriteLn('d= ',d:5:2);
End.

Пример:
Vvedite 3 числа
4 5 6
d= 5
d=  5.00