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
Скорость - <span>14400бит/с
Длина сообщения - </span> 225 Кбайт или 1 843 200 бит
Время -?
----------------------------------------------------------------------
Чтобы найти время, надо длину разделить на скорость.
1 843 200 делим на 14400 получаем 128 сек
Ответ: 128 сек.
Program CountA;
Uses Crt;
var a,n,x,i:integer;
begin
clrscr; // очищаем экран
write('Введите число n:');
readln(n); // ввод данных
write('Введите цифру а: ');
readln(a); // ввод данных
x:=1; i:=0; i-счётчик цифр а
while (n<>0) do // Пока n не стало равным нулю
begin
x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа
if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1
n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу
end.
Многоуровневый список - это список,который основывается на отображении строк списка разными уровнями(от 1 до 9 уровня).То есть каждая из строк списка может включать подпункты различных уровней.Для обозначения в многоуровневом могут использоваться как маркеры,так и цифры .