1. If ((N div 10) = 5)
2.
Code
For i := 10 to 99 do {лучше идти от 18 конечно, целых 9 проходов экономим}
Begin
If (i mod 9 = 0) then S := S + i;
End;
Аналогичное выражение с
Code
i := 10;
While (i <= 99) do
Begin
If (i mod 9 = 0) then S := S + i;
Inc(i);
End;
так же и с Repeat
Code
i := 10;
Repeat
Begin
{то же самое что и в While}
End;
Until i <= 99;
