разгадать кросворд. 1)сообщение,не содержащее для вас новую (значимую) информацию (15 букв)
2)Наука о закономерностях протекания информационных процессов в системах различной природы, о методах, средствах и технологиях автоматизации информационных процессов (11 букв)
3)разговорный язык различных национальностей (11 букв)
4)содержание сообщений получаемых человеком (10 букв)
5)самая древняя форма письменности, идущая от первобытных людей (16 букв)
6)письменность, в которой отдельные буквы или сочетания букв означают звуки речи,препинания - паузы и интонацию (8 букв)
7)звуковой знак устной речи , из которой складываются слова (6 букв)
8)вид письменной речи , в котором один значок обозначает слог (япония) (8 букв)
9)язык определённых профессий или областей знаний (10 букв)
10)ощущение запаха определять запах веществ , рассеянных в воздухе (8 букв)
11)знаковый представления информации (4 буквы)
12)совокупность правил записи текста на языке (9 букв)
13)система правил и соглашений определяющая толкование и придание смысла конструкциям языка (9 букв)
14)вид письменности широко используемой в китае , где иероглифом обозначается одно слово (15 букв)
15)знание, которое определяет действие для достижения цели (11 букв)
записи программ для управления ЭВМ (16 букв)
17)определенный вид знаний об определённых явлениях, свойствах объектов и зависимостях (13 букв)
function gcd(a,b:integer):integer;
// Нахождение НОД
var
i: longint;
begin
while b <> 0 do begin
a := a mod b;
i := b; b := a; a := i
end;
Result:=a
end;
begin
var a:=ReadInteger('a=');
var b:=ReadInteger('b=');
var nod:=gcd(a,b);
if nod>1 then
WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
a,b,a div nod,b div nod)
else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.
Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840
Const
n=5;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
writeln('Matrix reading...');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
readln(ma[i,j]);
end;
writeln('First matrix:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
write(ma[i,j]:4);
if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
end;
end;
writeln;
writeln('Final matrix:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(ma[i,j]:4);
end;
end.
Пример ввода:
1
2
3
4
5
6
7
8
9
1
2
3
4
5
6
7
8
9
1
2
3
4
5
6
7
Пример вывода:
First matrix:
1 2 3 4 5
6 7 8 9 1
2 3 4 5 6
7 8 9 1 2
3 4 5 6 7
Final matrix:
1 2 3 4 5
6 49 64 81 1
2 3 4 5 6
49 64 81 1 2
3 4 5 6 49