Число 501021 может существовать в системах счисления с основанием: 2 и 5
6 и 8
4 и 8
10 и 3

182

404

Посмотреть ответы 1

Ответы на вопрос:

dims12

Информатика

4,8(17 оценок)

Программа подсчитывает количество слов длиной в 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.