Отделно букви и отделно цифри *

Публикувано на 23 декември, петък от Данаил

Да се напише програма, която въвежда от клавиатурата низ съдържащ букви и цифри и после извежда на екрана отделно буквите които са участвали в низа и отделно цифрите.

Публикувано в 10a, 11а с етикети . Постоянна връзка.

4 Responses to Отделно букви и отделно цифри *

  1. Svetli каза:
    23 декември, петък в 19:19 
    program Project1;
var
  s,b,c:string;
  i:integer;
begin
  //Инициализация
  s:='';
  b:='';
  c:='';
  Writeln('Vavedete razlichni bukvi i cifri bez znachenie v kakuv red');
  Readln(s);
  Writeln;

  //Търсене на букви и цифри из низа, и сортирането им.
  for i:= 1 to Length(s) do begin
    if ((s[i]>='A') and (s[i]<='z')) then
       b:=b+s[i];
    if ((s[i]>='0') and (s[i]<='9')) then
       c:=c+s[i];
  end;

  //Отпечатване на резултат
  Writeln('Bukvite ot niza sa: ',b);
  Writeln('Cifrite ot niza sa: ',c);
  Readln;
end.
  2. Димитър каза:
    25 януари, сряда в 18:00 
     program Project1;
var // Декларации за променливи
  s,b,c:string; // Поредица от символи s,b,c
  i:integer; // Цяло число i
begin // Начало на програмата
  //Инициализация
  s:='';
  b:='';
  c:='';
  Writeln('Vavedete razlichni bukvi i cifri bez znachenie v kakuv red'); // Опечатва текста в скобите
  Readln(s); // Прочита (s)
  Writeln; Нов ред
 
  //Търсене на букви и цифри из низа, и сортирането им.
  for i:= 1 to Length(s) do begin
    if ((s[i]>='A') and (s[i]<='z')) then
       b:=b+s[i];
    if ((s[i]>='0') and (s[i]<='9')) then
       c:=c+s[i];
  end;
 
  //Отпечатване на резултат
  Writeln('Bukvite ot niza sa: ',b); // Отпечатва текста в скобите
  Writeln('Cifrite ot niza sa: ',c); // Отпечатва текста в скобите
  Readln; // Прочита на променлива
end. // Край на програмата

Вашият коментар