Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 5.00/7:

LOLKEKMDA

0 / 0 / 0

Регистрация: 16.11.2020

Сообщений: 109

Изменить код и добавить else

13.12.2020, 16:07. Показов 1437. Ответов 1

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Программа находит рядом стоячие AA, если AA нету, то i = 0(нужно добавить else в код)

Pascal
1
2
3
4
5
6
7
8
9
var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s)do
if (s[i]='A') and (s[i+1]='A') then
writeln(s[i],s[i+1]);
end.

Лучшие ответы (1)

Сообщение: #15093664

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

13.12.2020, 16:07

Ответы с готовыми решениями:

Изменить код и добавить комментарии
Ниже дан код (работоспособный), нужно сделать чтобы сообщение выводилось 10 раз (через цикл) один под одним через пустую строку и к каждой...

Дана строка. Изменить ее: после каждого символа добавить его код
Здравствуйте, пожалуйста, помогите с решением задачи. Задача: дана строка. Изменить ее следующим образом: после каждого символа добавить...

Стек. Что добавить в код, или как изменить его, чтобы в нём были структуры ?
Программа выводит второй стек, состоящий из положительных элементов первого стека. Преподаватель сказал, что я сделал программу, как...

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

13.12.2020, 16:19

Сообщение было отмечено LOLKEKMDA как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
s:string;
i,k:integer;
begin
readln(s);
k:=0;
for i:=1 to length(s)-1do
if copy(s,i,2)='AA' then
 begin
  inc(k);
  writeln(s[i],s[i+1]);
 end;
if k=0 then write('Сочетаний АА нет')
else write('Количество сочтаний АА=',k)
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

13.12.2020, 16:19

Помогаю со студенческими работами здесь

Стек. Что добавить в код, или как изменить его, чтобы в нём были структуры ?
Программа выводит второй стек, состоящий из положительных элементов первого стека. Преподаватель сказал, что я сделал программу, как...

хочу чтоб некто не мог бы изменить размер рамку,,какой код надо добавить еще?
package coding; import java.awt.Frame; import java.awt.event.*; public class Look extends Frame{ private static final long...

Изменить код вызываемой функции для расчета ряда фибоначчи; заменить рекурсию на цикл; добавить вывод на экран
Помогите изменить код вызываемой функции для расчета ряда фибоначчи, но заменить рекурсию на цикл, и что бы она выводилась на экране) ...

Добавить код "Изменить атрибуты файла: создан, изменен, открыт"
Добрый вечер! Читал http://******************/forum/topic-239916/anchor-entry1724859/0.html и попробую. 1) Исходный код...

Взяв за основу (код), изменить код программы таким образом , чтобы :
Взяв за основу (программа), изменить код программы таким образом , чтобы : - Входные данные (поля структуры) вводились с клавиатуры и...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Наверх