Turbo Pascal 7 Вся загвоздка в том, что length использовать нельзя =( надо написать так, что бы это было на уровне знания циклов вплоть до репит и без массивов... последняя тем изучаемая была короче практически начало... я замучался писать ))) ничего сложного нет, но как только я показываю решение, мне говорят что мы такое не проходили )))) Последниии изучаемые темы: символьный тип,цикл со счётчиком (это всё в порядке убывания), задачи с использован. логич. переменных, макс. и мин. значение Заранее спасибо! PS и просьба... без демогогии... )
8 Код (Text): program test8; var chr: char; count, i: byte; is_true: boolean; begin write('Enter count: '); readln(count); is_true := false; for i := 1 to count do begin write('Enter char: '); readln(chr); if chr = '_' then is_true := true; end; if is_true = true then writeln('Is true!'); readln; end.