Raku kurss / Pamati /
Izpildes plūsmas pamati / Cikli / Izmantojot while
Viktorīna — while cikls
1
Ko izdrukā šī programma?
my $n = 10;
while $n {
$n--;
}
say $n;| 0 | Atbilde: (: 0, 1, −1 :) |
2
Kā novērst, lai šī programma neizpildītos bezgalīgi? Veiciet nepieciešamās izmaiņas kodā.
| . | my $n = 5; |
| . | my $a = 10; |
| . | while $n { |
| n a | say $␣--; |
| . | } |