Var m1,m2,m3,m4,m5:set of char;
c:char;
begin
m1:=['0'..'9'];
m2:=['.',',',':','?','!',';'];
m3:=['a'..'z'];
m4:=m1*m2*m3;
m5:=m1+m2+m3;
writeln('Пересечение множеств:');
for c:=chr(32) to chr(255) do
if c in m4 then write(c:2);
writeln;
writeln('Объединение множеств:');
for c:=chr(32) to chr(255) do
if c in m5 then write(c:2);
writeln;
end.
Результат:
Пересечение множеств:
Объединение множеств:
! , . 0 1 2 3 4 5 6 7 8 9 : ; ? a b c d e f g h i j k l m n o p q r s t u v w x y z
16*8 = 128 вариантов местонахождения книги. Из этого количества вариантов необходимо выбрать один. Следовательно, N = 128, а I = 7, т.к. 128 = 27.
1) D
2)
<span>полная форма if (условие) then ...else ...;
</span><span>краткая форма if (условие) then ...;
</span><span>3)
a) </span><span>if x>=y then
begin
x:=0;
y:=0;
end;
else
write(z);
b)
1.5
</span>
1.
program nom1;
const n=8;
var a:array[1..n] of integer;
i,t:integer;
begin
for i:=1 to n do
read(a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
write('Командное время = ',t);
end.
2.program n2;
const N=15;
var a:array[1..N] of integer;
i:integer;
v:real;
begin
for i:=1 to N do a[i]:=random(30);
v:=0;
for i:=1 to N do
v:=v+a[i];
v:=v/N;
writeln('Сред высота =',v);
end.
3.
program n3;
const N=12;var a:array[1..N] of integer;
i,c:integer;
begin
for i:=1 to N do a[i]:=random(120)+100;
c:=0;
for i:=1 to N do
if a[i]>160 then
c:=c+1;
writeln('Kол-во прошедших = ',c);
end.
