Program n1;
var a,b: integer;
begin
writeln('введите кол-во учеников и кол-во девочек: ');
readln(a,b);
writeln('в классе ',a,' учеников');
writeln('Из них ',b,' девочек и ',a-b,' мальчиков');
end.
1) program n_1;
var a:array[1..100] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(450)+250;
writeln(a[i],' ');
end;
end.
1) Ане нравятся уроки математики и химии
2) Ане нравятся уроки химии и не нравятся - математики
3) Ане нравятся уроки математики и не нравятся - химии
4) Ане нравятся уроки математики или химии
5) Ане нравятся уроки математики или не химии
6) Ане не нравятся уроки математики или химии
7) Ане не нравятся уроки математики или химии
8) Ане не нравятся уроки математики и химии
9) Ане не нравятся уроки математики или нравятся уроки химии
Зачем нам вещественный массив?
var
i, j, n: integer;
tmp: double;
mas: array[1..101] of double;
begin
randomize;
readln(n);
for i:=1 to n do
begin
mas[i]:= random(-100,107);
end;
for i:=1 to n do
for j:=1 to n do
if mas[j]>mas[j+1] then
begin
tmp:=mas[j];
mas[j]:=mas[j+1];
mas[j+1]:=tmp;
end;
for i:=1 to n do
write(mas[i], ' ');
end.
Они равны так как:
В левой части, по закону де Моргана и закону двойного отрицания мы получим A & B
И таблица истинности
А В А&В
0 0 0
0 1 0
1 0 0
1 1 1
в правой части такая же таблица.