<span>1) a=число 376 четное, b=</span><span>число 376 трехзначное: a & b
2) a=зимой дети катаются на коньках, b=</span><span>зимой дети катаются на лыжах: a | b
3) a=новый год мы встретим на даче, b= </span><span>новый год мы встретим на Красной площади: a | b
4) a=солнце движется вокруг земли: ¬a
5) a=земля имеет форму шара, b=шар из космоса кажется голубым: a & b
6) a=был урок математики, b=старшеклассники отвечали на вопросы учителя, c=</span><span><span>старшеклассники</span> писали самостоятельную работу: a & b & c</span>
А) C помощью сетевого коммутатора или маршрутизатора, так как нам надо будет подключить несколько компьютеров.
Б) DSL через телефон домашний или высокоскоростной через оптоволокно ( одним словом проводной).
В) Беспроводной интернет (Wi-fi).
Type
Digits=array[0..9] of byte;
procedure RD(n:integer; var ad:Digits; var f:boolean);
{ заполняет массив количеством повторений цифр числа n
f=True, если хоть одна цифра повторяется }
var
i,d:byte;
begin
for i:=0 to 9 do ad[i]:=0;
f:=False;
while n>0 do begin
d:=n mod 10;
ad[d]:=ad[d]+1;
if ad[d]>1 then f:=True;
n:=n div 10
end;
end;
var
i,j,n,k:integer;
a:Digits;
f:boolean;
begin
for i:=1 to 2 do begin
Write('n = '); Read(n);
n:=Abs(n); { против ввода отрицательных }
RD(n,a,f);
if f then begin
Write('Встречаются больше одного раза цифры ');
for j:=0 to 9 do
if a[j]>1 then Write(j,' ');
Writeln
end
else Writeln('Все цифры в числе уникальны')
end
end.
<u>Пример</u>
n = 153632
Встречаются больше одного раза цифры 3
n = 1030041
Встречаются больше одного раза цифры 0 1
var
s,sr:string;
c:char;
i,j,n,p:byte;
begin
for i:=1 to 2 do begin
Write('Введите строку: '); Readln(s);
n:=Length(s);
sr:='';
for j:=1 to n do begin
c:=s[j];
if Pos(c,Copy(s,j+1,n-j))>0 then sr:=sr+c+' ';
end;
if Length(sr)>0 then Writeln('Встречаются больше одного раза символы ',sr)
else Writeln('Все символы в строке уникальны')
end
end.
<u>Пример</u>
Введите строку: информатика
Встречаются больше одного раза символы и а
Введите строку: проблема
Все символы в строке уникальны
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.
<span> логическая процедура придания строго фиксированного смысла терминам языка.</span>
