Пишу на BASIC:
CLS
SCREEN 12
FOR I = -1 TO 1 STEP 0.1
Y = 1 / I + 2
PRINT Y
NEXT
Это сайт в интернете который ты открыл...
Пропускная способность шины = Разрядность шины х Частота шины
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
1-А
2-Б
3-В
4-А
5-Б
6-А
7-А
8-Б
9-В
10-Б
11-Б
12-Б
13-В
14-Б
15-А