• Программа в Pascal
    1.Написать программу которая определяет сколько раз в строке,введенной с клавиатуры, встречается буква м.
    2.написать программу которая удаляет из строки, введенной с клавиатуры,все буквы о

Ответы 1

  • 1. Program prog;uses crt;var s: string;    k,i: integer;    begin;write('S = ');readln(s);for i:=1 to length(s) doif (s[i]='м') or (s[i]='М') then k:=k+1;writeln(k);end.2.Program prog;uses crt;vars,n:string;i:integer;beginwrite('S = ');readln(s) ;n:='';for i:=1 to length(s) doif (s[i]<>'о') and (s[i]<>'О') then n:=n+s[i]; s:=n; writeln (s);end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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