Var i:integer; s,p:real;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
p:=p*i;
s:=s+p;
end;
writeln('s = ',s);
end.
Результат:
s = 4037913
Пояснение:
1 - исправно, 0 - неисправно
1) Если правы хозяин и сын, а мастер не прав, то противоречий нет.
2) Если правы хозяин и мастер, а сын не прав, противоречие по памяти.
3) Если правы сын и мастер, а хозяин не прав, противоречие по процессору.
Ответ:
<em>Память и винчестер исправны, процессор вышел из строя.</em>
Налево при x = 1
Направо при x = 21
Ответ: 1, 21
-------------------
Действие y := x + 12 выполнятся не будет вообще, т.к. x должен быть -8, но это число является истинным для первого условия x < 3, поэтому туда программа не пойдет.
Если ввести в окно поиска какое нибудь слово, то браузер найдет его значение или информацию о запросе
30048=3•10000 0•1000 0•100 4•10 8•1
97510=9•10000 7•1000 5•100 1•10 0•1