Примеры символов, которые могут иметь несколько значений.

Знак "о"- буквы "о" в алфавите; - буквы "о" [ou] в алфавите; - цифры 0 в системах счисления; - символа элемента "о" (кислорода) в таблице д. и. менделеева.

(pascal) 1. var   i, s, n: integer; begin   readln(n);   s : = 0;   i : = 0;   while i < n do   begin     i : = i + 1;     s : = s + i;   end;   writeln('цикл с предусловием: ', s);   s : = 0;   i : = 1;   repeat     s : = s + i;     i : = i + 1;   until i > n;   writeln('цикл с постусловием: ', s);   s : = 0;   for i : = 1 to n do     s : = s + i;   writeln('цикл с переменной: ', s); end. 2. var   i, n: integer; begin   readln(n);   for i : = 1 to n do     write(2 * i, ' ') end. 3. var   i, a, b: integer; begin   readln(a, b);   for i : = a to b do     writeln(i, ' * ', i, ' = ', i * i) end.

Поскольку по условию непонятно, на каком языке написана строка, то я написал программу, заменяющую "а" на "о". если на другом языке - то программу можно uses crt; var i : integer;       s, snew : string; begin  clrscr;     write ('s = '); readln(s);     snew : = '';   for i: =1 to length(s) do     if s[i]='a' then snew: =snew+'o'                    else snew: = snew+s[i];     writeln (s);     writeln (snew);   readln; end.