"Пока" - while если правильно понял
"Если" - if
цикл с параметром - for
while - действие выполняется до того, пока требуемое условие заданное в ( ), не будет ложным
Например:
while <условие> do
<операция>
for - действие выполняется до того, пока не выполниться столько - то раз
Например:
for i:=1 to 10 do //...i:=1 to 10... это сколько раз будет выполняться цикл, в данном случае 10 раз
<операция>
if - условие, на которое есть 2 ответа: ДА или НЕТ (это как тип данных boolean, булеан логический тип данных, который тоже имеет 2 значения: true или false)
Например:
if <условие>
then <операция>
else <операция>
Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
Sub Ex()
Dim Y() As Integer, X() As Integer
Dim i As Integer, n As Integer
Range(Cells(1, 2), Cells(100, 2)).ClearContents
i = 1
Do While Len(Cells(i, 1).Value) <> 0
i = i + 1
Loop
n = i - 1
ReDim Y(1 To n), X(1 To n)
For i = 1 To n
Y(i) = Cells(i, 1).Value
X(i) = Y(i) + i
Cells(i, 2).Value = X(i)
Next i
End Sub
Предполагается, что данные располагаются в колонке А, начиная с ячейки А1
В колонку B будет выведен результирующий массив.
Признак конца считывания - пустая ячейка в колонке А