Ответы 2

  • Спасибо большое.
  • //Pascal//--------------------------------------------varS: string;i, counts: byte;begincounts := 0;write('Введите S: ');readln(s);for i := 1 to length(s) doif S[i] = '9' then  counts := counts + 1;writeln('Количество "9" = ', counts);readln;end.
    answer img
    • Автор:

      keiraitp9
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years