Скорее всего, в задании требуется написать программу. На паскале это будет так:
var s:real; i:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+cos(i);
writeln('s = ',s);
end.
var a,b,c,d,min:real;
flag: boolean;
begin
flag:=true;
writeln('Enter A, B, C, D numbers:');
readln(a,b,c,d);
if (a=d) then begin
writeln('a equals to d!');
flag:=false;
min:=a;
end;
if (b=d) then begin
writeln('b equals to d!');
flag:=false;
if (b<min) then min:=b;
end;
if (c=d) then begin
writeln('c equals to d!');
flag:=false;
if (c<min) then min:=c;
end;
if flag then writeln('Max difference: ',d-min);
end.
Такие задачи решаются с помошью таблицы и внимательно изучая факты она заполняется. Потом используется метод исключения.
Всю задачу расписывать очень долго. Я приведу только один пример:
Коршунов - самый молодой, а химик старше историка, следовательно Коршунов не химик (он не может быть старше кого бы то ни было, потому что самый младший).
var
i, j, k : integer;
begin
i := 1 + trunc (random (100));
j := 0;
repeat
writeln ('Введите число');
read (k);
inc (j);
until k = i;
writeln ('Верно. Отгаданно с ', j, ' попытки. ');
end.
===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.