var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.
Ответ:
a = list(str(input()).split())
z = int(a[0])
e = int(a[1])
b = (input().split())
c = sum(map(int, b ))
if c%e > 0:
x = c//e + 1
else:
x = c//e
print (x)
Объяснение:
Var
a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn(a+b-c/(a-2*b));
<span>End.
</span>
Сначала определяем количество логических переменных в выражении. Их три: A, B, C. Значения истинности каждой из переменных - это 0 или 1. Так как переменных три, то разных значений истинности они вместе могут принимать 8, т.к. 2³ = 8. В таблице истинности будет 8 строк со значениями.
Теперь считаем количество логических операций и определяем их приоритет. Сначала выполняем операции в скобках в такой последовательности: ¬ (НЕ, отрицание, инверсия); &, ∧ (И, логическое умножение, конъюнкция), ∨ (ИЛИ, логическое сложение, дизъюнкция). В выражении 4 операции. Столбцов в таблице истинности будет: 3 + 4 = 7.