Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».
Не зарегистрирован
Зарегистрирован: 15.03.19
Репутация:
0
Отправлено: 15.03.19 15:03. Заголовок: Задача А и B из он-лайн задачника к учебнику
Здравствуйте, уважаемый Константин Юрьевич!
Посмотрите, пожалуйста, задачи A и B к теме Символьные строки из параграфа 66. Решение на Free Pascal проходит на 100 баллов. Там я сделал тип строчки s: Ansistring. С детьми я работаю на ABC.Pascal. Один тест не проходит. Насколько я поняла, в этой задаче никто не смог на ABCPascal сдать на 100 баллов. Может я где-то ошибаюсь. Во второй задаче такая же проблема.
Условие: Напишите программу, которая заменяет в символьной строке все буквы a на буквы b (латинские, строчные).
Входные данные Входная строка содержит символы латинского алфавита, как строчные, так и заглавные.
Выходные данные Программа должна заменить во всей строке строчные буквы a на буквы b и вывести в первой строке получившуюся символьную строку, а во второй – количество выполненных замен.
Решение:
Var s:string; k,i:integer; Begin Readln(s); For i:= 1 to Length(s) do if s='a' then begin s:='b'; inc(k); end; writeln(s); writeln(k); End.
Сообщение: 216
Зарегистрирован: 28.11.09
Откуда: Россия, Санкт-Петербург
Репутация:
0
Отправлено: 15.03.19 15:10. Заголовок: Zarema_s пишет: С де..
Zarema_s пишет:
цитата:
С детьми я работаю на ABC.Pascal. Один тест не проходит.
Здравствуйте! Дело в том, что у Паскаля ABC не хватает быстродействия на последнем тесте, где очень длинная строка. Если вы не используете какие-то особенности именно Паскаля ABC, при отправке решения просто выбирайте FreePascal.
Все даты в формате GMT
3 час. Хитов сегодня: 2
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет