Модуль 3 задание 3 ч.2

8)В ЯП Паскаль
If <логическое выражение> then <оператор1> else <оператор2>
Пример: if min > max then begin
t := min;
min := max;
max := t;
end;
В ЯП Basic
If Условие Then
Серия 1
Else
Серия 2
End If (Visual Basic)
Пример: If NumberFirst > NumberSecond Then
Print “Наибольшее из чисел первое:”; NumberFirst
Else
Print “Наибольшее из чисел второе:”; NumberSecond
End If

9)Паскаль: Read(rV, rS, iW, iJ); WriteLn(rA, rB:10:2);
Бейсик: INPUT “Ввод координат точки М(X1,Y1)”, X1,Y1
PRINT “C=”; C; “При А=”; A; “и В=”; B

10)Цикл с параметром: For i:= N1 DownTo N2 Do <оператор>;
Пример: For V:= E1 downto E2 do S;
For i:= 1 to n do y:= y*x;

11)Sub сумма4()
Dim x, s As Integer
s = 0
For x = 0 To 100
s = s + x
Next x
MsgBox ("s=" + Str(s))
End Sub