Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.
Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.
1. логика - 3. Наука о формах и способах мышления
2. Высказывание - 9. Повествовательное предложение, вкотором что-либо утверждается или отрицается.
3. Алгебра логики - 8. Наука об операциях над высказываниями
4. Логическая константа - 5. ИСТИНА и ЛОЖЬ
5. Дизъюнкция - 2. Логическое сложение
6. Инверсия - 4. Логическое отрицание
7. Конъюнкция - 7. ^
8. Импликация - 1. А→В
9.Эквивалентность - 6. А ↔ В
56 (в 16с/с) = 0101 0110 (в 2с/с) = 010 010 110 (в 2с/с) = 226 (в 8с/с)