• помогите пожалуйста с 5 и 6 номерами. (нужно написать программы по схеме)

    question img

Ответы 2

  • Огромное спасибо)
  • №5var  st1, st2: string;  T: integer;begin  write('Строка, в которой будет произведен поиск: ');  readln(st1);  write('Что искать: ');  readln(st2);  T := pos(st2, st1);  writeln('"', st2, '" находится на позиции ', T);end.№6var  st: string;  K, i: integer;begin  write('Строка: ');  readln(st);  K := 0;  for i := 1 to length(st) do  begin    if st[i] = ',' then      K := K + 1;  end;  writeln('Кол-во запятых: ', K);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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