(A ∧ B) ∧ (C ∧ (C ∨ A)) = A·B·(C·(C+A)) = ABC(C+A) = ABCC+AABC =
ABC+ABC = ABC = A ∧ B ∧ C
Var a,d:integer;
b,c:real;
begin
a:=30;
b:=14.9;
c:=33.33;
d:=1944;
writeln(a,',',b,',',c,',',d)
end.
<span>8 килобайт))..........</span>
<span>var
a: array[1..1000] of </span><span>longint</span>;
i,s,n:integer;
Процедуру заполнения напишешь сам, пишу алгоритм нахождения двухзначного числа(Количество чисел это n):
for i:=1 to n do
begin
if (a[i]>9) and (a[i]<100) then
begin
s:=s+1;
end;
end;
Ответ:
var A:array[1..10] of integer;
i,sum:integer;
begin
writeln('Введите значения массива');
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
if A[i] mod 2=0 then sum:=sum+a[i];
write('ответ= ',sum);
end.