Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 20.05.2020, 04:12   #1
kabargak
Новичок
Джуниор
 
Регистрация: 12.05.2020
Сообщений: 3
По умолчанию Укажите на ошибки . Чего не хватает?

Программа должна менять все буквы "и" в введенной строке на "_" и выводить результат на экран.

Program kabarga;
Uses Crt;
Var s:string;
i:integer;
begin
write('Введи строчку');
readln(s);
for i:=1 to length(s) do if (s[i]='и') then s[i]:='_';
writeln(s);
end.

Пишет, что программа выполнена, но ничего не выводит на экран.
kabargak вне форума Ответить с цитированием
Старый 20.05.2020, 11:00   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,040
По умолчанию

после вывода ответа добавьте
Код:
writeln(s);
readln;
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Укажите на ошибки в коде - C++ alexboliam Помощь студентам 16 11.12.2017 02:05
Укажите на ошибки в верстке Bumsta HTML и CSS 0 23.02.2017 13:22
Кто угадает чего не хватает? Alar Свободное общение 21 07.03.2014 11:08
По моему чего то не хватает ? mixazavra Компоненты Delphi 9 31.10.2012 21:41


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS