Program n1;
const n=100;
var a: array [1..n] of integer;
i,k,sum,temp: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
write('введите ',i,' элемент: ');
readln(temp);
if temp=0 then break;
if temp mod 8=0 then
begin
a[i]:=temp;
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln('ср. ариф: ',sum/k);
end.
Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
Function Sign(x:real):integer;
begin
if x<0 then Sign:=-1
else if x=0 then Sign:=0
else Sign:=1;
end;
var a,b:real;
begin
writeln('a, b:');
readln(a,b);
writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b));
end.
Пример:
<span>a, b:
-8 0
Sign(A) + Sign(B) = -1</span>
А) а∧b=1∧0=0
б) а∧b∨c=1∧0∨1=0∨1=1
в) (а∨b)∧(c∨b)=(1∨0)∧(1∨0)=1∧1=1
г) а∨b=1∨0=1
д) а∨b∧с=1∨0∧1=1∨0=1
е) не(а∨b)∧(c∨b)=0∧1=0
ж) неа∨b=0∨0=0
и)неа∨b∧с=0∨0∧1=0∨0=0
к)не(а∧b∧c) =не(1∧0∧1)=не 0=1
Входит в состав: операционная система и ПО компьютера; MS Word и MicrosoftOffice.
Является разновидностью: редактор презентаций и прикладное ПО; растровый графический редактор и графический редактор; векторный графический редактор и графический редактор.
<span>Является элементом множества: все прочие.</span>