Решить, при регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 9 - id918514520200305 от nik102910 05.03.2020 03:29

Question

Информатика: Решить, при регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 9 символов. из соображений информационной безопасности каждый пароль должен содержать хотя бы 1 десятичную цифру, как прописные, так и строчные латинские буквы, а также не менее 1 символа из 6-символьного набора: «& », «#», «$», «*», «! », «@». в базе данных для хранения сведений о каждом пользователе отведено одинаковое и минимально возможное целое число байт. при этом используют посимвольное кодирование

nik102910 · Accepted Answer

Программа подсчитывает количество слов длиной в 5 символов во введенном тексте. Но работать она не будет, есть ошибки:
1. Встречен repeat но нет until
2. Есть 3 begin, но только 2 end
3. Константа N лишняя. Нигде в программе не используется
После исправления ошибок программа с краткими комментариями будет выглядеть так:

program Zinaida;
var
i, k: integer;
inString: String;
isize, count: integer;
begin
write('String: ');
readln(inString); //ввод текста
k := length(instring); //длина текста
if instring[k] = '.' then dec(k);
//цикл для поиска пробелов и
//слов с длиной 5 символов
for i := 1 to k do
begin
    if instring[i] <> ' ' then inc(isize);
    if (instring[i] = ' ') or (i = k) then
    begin
    //если длина слова = 5 то увеличиваем count на 1
      if isize = 5 then inc(count);
      isize := 0;
    end;
end;
write('Количество слов из пяти букв', count);
end.

MOGZ ответил