| s:=30; case s mod 3 of 1: write('stop'); 2: write('koniec') else write('start'); end; |
int test(char s[]) { int i; for (i=0; s[i]>0;i++); return i; } |
var t:integer; begin write('Podaj rok '); readln(x); t:=x div 1000; case t of 1:write('M'); 2:write('MM'); 3:write('MMM'); end; | Dane: Liczba naturalna n i ciąg liczb x1, x2, ..., xn. |
| Wynik: ? |
| Krok 1. Dla i=1, 2, ..., n-1 wykonaj kroki 2 i 3, a następnie zakończ algorytm. |
| Krok 2. Znajdź k takie, że xk jest najmniejszym elementem w ciągu xi, ..., xn. |
| Krok 3. Zamień miejscami elementy xi oraz xk. |
Main() { } k:=25; for i:=1 to (k mod 7) do write ('*'); var i,j,k:integer; begin ... k:=15; i:=5; j:=i+7; while (k < j) do j:=j-k; ... ... k:=5; iloczyn:=1; for n:=10 downto k do iloczyn:=iloczyn*n; procedure druk(n:integer); begin if n=0 then exit; writeln(n); druk(n-1); end;