Какой текст будет выведено на экран в результате выполнения следующей программы ? s: ='example'; s0: ='abc'; insert (s,s0,3); writeln(s);
248
416
Ответы на вопрос:
{вот правильное решение я там забыл то чтобы подсчитывать число букв a} var s: string; i, id, len, max, count,q: byte; begin q: =0; readln(s); len : = length(s); max : = 0; id : = 0; count : = 0; for i: =1 to len do if s[i] < > ' ' then count : = count + 1 else begin if count > max then begin max : = count; id : = i - count; end; count : = 0 end; if count > max then begin max : = count; id : = i - count; end; for i: =id to id+max do if s[i] = 'a' then begin q: =q+1; s[i] : = 'b'; writeln(s,' ' , q); end; end.
Популярно: Информатика
-
raisa3yusif11.12.2020 06:14
-
изу19716.12.2021 15:26
-
альбинка2514.04.2023 16:40
-
kirasanovnagmailcom16.09.2022 20:29
-
KV409.04.2023 20:57
-
Анастасия041104.08.2020 04:20
-
Шакира22824.06.2022 12:18
-
ARTIKSTUR14.04.2021 07:36
-
альбина26219.06.2022 07:28
-
1Booooooooooom105.01.2020 01:09