• турбо паскаль

    Исходные данные: список 20 фамилий сотрудников. Определить номер сотрудника по заданной фамилии. Если такого нет в списке, напечатать: «В списке не значится»

Ответы 1

  • ок вот программа на Pascal.Abc.Net она идет на любой паскаль даже фри паскальvar a: array [1..100] of string; i, e: integer; s: string;begin while i < 20 do begin i += 1; read(a[i]); end; read(s); i := 0; while (i < 20) and (e = 0) do begin i += 1; if a[i] = s then e := 1 ; end; if e = 1 then writeln('Найдено, ' + a[i]) else writeln('Не нашлось');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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