А - наличие свободного времени
В - наличие дождя на улице
С - поход на вечеринку
_
А*В=С
_ _
А В В А*В С
0 0 1 0 <span> 0
</span>0 1 0 0 <span> 0
</span>1 0 1 0 <span> 0
</span>1 1 0 1 <span> 1</span>
Double a,b,x,k;
k = ((pow(a+b,3)-cos(x*x))/(tan(x)*exp((-3)*x)+0.00275)+(sqrt(fabs(a+b)))/(<span>pow(sqrt(a+b), 1/3<span>)</span></span>));
Var a,b,c,s:integer;beginread(a);read(b);read(c);s:=a*b*c;writeln('s= ',s);
Ошибка, которую "заметил" компилятор, состоит в нарушении запрета на модификацию параметра цикла For в теле цикла. Для Ваших целей надо было использовать цикл с итерацией, например такой:
r := 460;
while r >= 100 do
begin
circle(620, 480, r);
r := r - 35
end;
В соответствии с алгоритмом, программа должна нарисовать концентрические окружности, центр которых имеет координаты 620;480, а радиус уменьшается от 460 до 100 с шагом 35. После окончания рисования производится заливка различными цветами областей, начальные точки которых указаны своими координатами, а границей области является какая-либо ранее нарисованная линия.
Попробуйте выполнить эту программу...
Используем законы логики:
Дистрибутивность
Закон инверсии
Правило операции с константой
Закон де Моргана
...