Передача данных (обмен данными, цифровая передача, цифровая связь) — физический перенос данных (цифрового битового потока) в виде сигналов от точки к точке или от точки к нескольким точкам средствами электросвязи по каналу передачи данных, как правило, для последующей обработки средствами вычислительной техники. Примерами подобных каналов могут служить медные провода, ВОЛС, беспроводные каналы передачи данных или запоминающее устройство.
1.
uses crt;
var x,y,z:integer;
begin
write('x:'); readln(x);
write('y:'); readln(y);
write('z:'); readln(z);
write('x*y*z=',x*y*z);
<span>end.
2.
uses crt;
var x:integer;
begin
write('Введите число:'); readln(x);
if x mod 7=0 then writeln('YES')
else writeln('NO');
<span>end.
3.
uses crt;
var n,x,sum:integer;
begin
write('N:'); readln(n);
sum:=0;
for x:=1 to N do
sum:=sum+x;
write(sum);
<span>end.</span></span></span>
Var x: real;
begin
read(x);
if(x < -1) then writeln(-x + 1)
else if(x >= -1) and (x < 0) then writeln(0)
else writeln(x * x);
<span>end.</span>
Var k,m,i:integer;
begin
writeln('k, m:');
readln(k,m);
for i:=1 to m do write(k,' ');
end.
Пример:
k, m:
7 5
7 7 7 7 7
Var
n,d,e:integer;
begin
Write('Введите двухзначное число: '); Read(n);
d:=n div 10; e:=n mod 10;
Writeln('Сумма цифр равна ',d+e,', произведение ',d*e);
Writeln('Число, полученное перестановкой цифр ',10*e+d)
end.
<em><u>Тестовое решение:</u></em>
Введите двухзначное число: 29
Сумма цифр равна 11, произведение 18
Число, полученное перестановкой цифр 92