<em>1.Информация - это сведения о чем либо. О предметах, событиях, явлениях и процессах окружающего нас мира.</em>
<em>Книги,интернет,телевизор, школа.</em>
<em>2. Графическая, звуковая, текстовая, числовая.</em>
<em>3. Объективность информации, достоверность информации, полнота информации, точность информации, актуальность информации, полезность (ценность) информации.</em>
Var
s1,s2,s3,s4: String;
begin
s1:='дуб';
s2:='робот';
s3:= 'лак';
s4:=''+s1[2]+s2[1]+s2[2]+s3[3];
Writeln(s4);
end.
Uses crt;
Var
n,n1,n2,n3,n4,i,Armst:integer;
Begin
Write('Введите n: '); readln(n);
Write('Числа <span>Армстронга </span>для n=',n,': ');
if n=3 then
for i:=100 to 999 do begin
n1:=i div 100;
n2:=i mod 100 div 10;
n3:=i mod 10;
Armst:=(n1*n1*n1)+(n2*n2*n2)+(n3*n3*n3);
if Armst = i then write(Armst,' ');
end;
if n=4 then
for i:=1000 to 9999 do begin
n1:=i div 1000;
n2:=i div 100 mod 10;
n3:=i mod 100 div 10;
n4:=i mod 10;
Armst:=(n1*n1*n1*n1)+(n2*n2*n2*n2)+(n3*n3*n3*n3)+(n4*n4*n4*n4);
if Armst = i then write(Armst,' ');
end;
Writeln;
Readkey;
End.
<span>x.data, x.t, y.data, y.t, z.day, z.month и t соответственно через пробел:</span>
23 10.5 21 10.5 21 11 11