Число игр определяется как число сочетаний из 6 по 2.
Формула: C(n,k) = n! / [(n-k)!*k!]
C(n,k) = 6! / [(6-2)!*2! = 6! / [4!*2!] = 5*6 / (1*2) = 15
Миша разрабатывает сайты -> пользуется HTML (и это не язык программирования, а язык разметки! Косяк авторов задачи)
Лена пишет макросы -> Visual Basic for Applications
Остались Prolog (язык логического программирования) и Pascal (структурного). Таня не умеет работать с Паскалем, значит, знает Пролог. А Серёже остается Паскаль.
var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.