Важная информация
Показано с 1 по 1 из 1

Тема: пожалуйста нужно сделать задание по основам программирования! - Pascal ABC

  1. #1 пожалуйста нужно сделать задание по основам программирования! - Pascal ABC 
    Новичок
    Регистрация
    19.04.2018
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Дана строка S. Выяснить есть ли в ней цифры. Если есть, то вывести эти цифры на экран, а также их количество. Если нет- то вывести сообщение об этом. Кроме того в полученной строке найти количество нечетных цифр, вывести эти цифры на экран и их количество, а если нечетных цифр нет - то вывести сообщение об этом. Выход из программы по нажатию клавиши Esc.

    Pascal Code:
    1. uses crt;
    2.  
    3. const s:string='0123456789';
    4. var a,b,x,s1,s2:string;
    5.  
    6. i,j,d,p,code,l:integer;
    7.  
    8. begin
    9.  
    10. repeat
    11.  
    12. clrscr;
    13.  
    14. d:=0; l:=0;
    15.  
    16. writeln('введи строку из цифр и букв');
    17.  
    18. readln(a);
    19.  
    20. x:=' ';
    21.  
    22. for i:=1 to length(a) do
    23.  
    24. begin
    25.  
    26. b:=copy(a,i,1);
    27.  
    28. for j:=1 to length(s) do
    29.  
    30. if b=s[j] then begin inc(d); x:=x+b; end;
    31.  
    32. end;
    33.  
    34. writeln;
    35.  
    36. if d=0 then writeln('в строке нет цифр')
    37.  
    38. else
    39.  
    40. begin
    41.  
    42. write('цифры введенной строки..'); writeln(x);
    43.  
    44. writeln('их количество ...',d);
    45.  
    46. writeln;
    47.  
    48. s2:=' ';
    49.  
    50. for i:=1 to length(x) do
    51.  
    52. begin
    53.  
    54. val(x[i],p,code);
    55.  
    56. if odd(p) then begin inc(l); str(p,s1); s2:=s2+s1; end;
    57.  
    58. end;
    59.  
    60. writeln;
    61.  
    62. if l=0 then writeln('среди чисел нет нечетных') else
    63.  
    64. begin
    65.  
    66. write('нечетные цифры..'); writeln(s2);
    67.  
    68. writeln('количество нечетных цифр...',l);
    69.  
    70. end;
    71.  
    72. end;
    73.  
    74. writeln;
    75.  
    76. writeln(' для выхода клавиша ESC, для продолжения ENTER');
    77.  
    78. until readkey=#27;
    79.  
    80. end.
    Последний раз редактировалось >Quiet Snow<; 19.04.2018 в 20:19.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Нужно сделать БД (msql), ПО под windows на C#
    от odan1 в разделе Фриланс
    Ответов: 0
    Последнее сообщение: 21.11.2016, 19:49
  2. Задание в Pascal (с подпрограммой)
    от Артём Седляр в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 02.05.2016, 16:57
  3. Задание в Pascal
    от Артём Седляр в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 01.05.2016, 16:22
  4. как сделать проект с abc pascal?
    от sula в разделе Общие вопросы программирования
    Ответов: 3
    Последнее сообщение: 05.05.2014, 18:41
  5. Ответов: 3
    Последнее сообщение: 20.02.2012, 12:38
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •