Заменяет в строке var s : string; i, lim : integer; begin readln (s); i := 1; lim := length (s); while (i <= lim) do begin if s[i] in ['1'..'9'] then begin if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then begin write ('ten'); inc (i); end else case s[i] of '1' : write ('one'); '2' : write ('two'); '3' : write ('three'); '4' : write ('four'); '5' : write ('five'); '6' : write ('six'); '7' : write ('seven'); '8' : write ('eight'); '9' : write ('nine'); end; end else write (s[i]); inc (i); end; end.
А) var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.
var n: integer;
begin
write('Введите n: ');
readln(n);
while n>0 do
begin
write(0);
n:=n-1;
end;
end.