Синформатикой (паскаль) написать на языке т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 результат работы программы:

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

ответ:1,2,5

Объяснение:

Объективная-1,2,5

Субъективная 3,4

1,2,5 не зависит от восприятия человека (т.е.можно  действительно однозначно ответить на вопросы 1,2,5).Снимался ли актер в этом фильме или нет,посмотреть дату рождения актёра,проверить информацию о запрете въезда в ту или иную страну).

А на вопросы 3,4 нельзя ответить однозначно.Кто-то считает,что  Бредд Пит действительно самый успешный и красивый актер,а кто-то считает,что самый успешный и красивый другой актёр.Про лучшую роль аналогично.

type

 Str = record

         fio: string;

         h: byte;

       end;

var

 base: array of Str;

 i,sum,n,err:integer;

 

begin

write('Число учеников: '); readln(n);

setlength(base,n);

sum:=0;

writeln('Введите фамилию и рост через "space": ');

for i:=0 to n-1 do

 begin

   write(i+1:4,'. ');

   readln(base[i].fio);

   

   val(copy(base[i].fio,

            pos(' ',base[i].fio)+1,  

            length(base[i].fio)-pos(' ',base[i].fio)),

       base[i].h,  

       err);

   delete(base[i].fio,

          pos(' ',base[i].fio),

          length(base[i].fio));

   sum:=sum+base[i].h;

 end;

writeln('Средний рост: ',sum/n:4:1);

for i:=0 to n-1 do

 if base[i].h<sum/n then

   writeln(base[i]);

end.