Пояснение:
1 - исправно, 0 - неисправно
1) Если правы хозяин и сын, а мастер не прав, то противоречий нет.
2) Если правы хозяин и мастер, а сын не прав, противоречие по памяти.
3) Если правы сын и мастер, а хозяин не прав, противоречие по процессору.
Ответ:
<em>Память и винчестер исправны, процессор вышел из строя.</em>
1.
var i:integer;
begin
for i:=10 to 99 do
if (i mod 3=0)and(i mod 5<>0)
then write(i,' ');
end.
Результат:
<span>12 18 21 24 27 33 36 39 42 48 51 54 57 63 66 69 72 78 81 84 87 93 96 99
2.
var i:integer;
begin
for i:=10 to 99 do
if i div 10 + i mod 10 = 15
then write(i,' ');
end.
Результат:
<span>69 78 87 96 </span></span>
A AND (NOT(B))
как я поняла, надо записывать так :)
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>