Var
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
9 12 6666666666666666666666666666666666666666666666666666666666666666666666666
Var o,l:integer;
a,b,max2:real;
procedure rip (var x,t:real; i:integer);
var q,min,max:integer;
a1:array [1..10] of integer;
begin
writeln ('Введите через пробел оценки за короткую программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
t:=a1[q]+t;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
t:=(t-max-min)/8;
writeln ('Введите через пробел оценки за произвольную программу танцора номер ',i);
For q:=1 to 10 do begin
read (a1[q]);
x:=a1[q]+x;
end;
min:=a1[1];
max:=min;
For q:=2 to 10 do begin
If a1[q]<min then min:=a1[q];
If a1[q]>max then max:=a1[q];
end;
x:=(x-max-min)/8;
end;
begin
For o:=1 to 8 do begin
rip (a,b,o);
If (a+b)>max2 then begin max2:=a+b; l:=o; end;
end;
writeln (l);
end.
Возможность исправления искаженных информационных данных, повышенная помехоустойчивость благодаря специальным методам кодирования информационных данных, возможность сжатия информационных данных, возможность передачи информационных данных по одному каналу от различных источников
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
