Регистрация
Anal0l
22.06.2020 03:27
Информатика
Есть ответ 👍

Удвоить вхождение некоторой буквы в текст. например, при удваивании буквы ‘а’ текст ‘ трава ’ должен превратиться в текст ‘траваа’.

108
410
Посмотреть ответы 2

Ответы на вопрос:

vladsunygin
vladsunygin
4,5(55 оценок)

var

text,sym: string;

i: integer;

begin

readln(text);

readln(sym);

for i: =1 to length(text) do

  if text[i] = sym then text[i]: =text[i]+sym;

  writeln(text);  

  end.

 

 

 

 

 

 

 

 

Говницооо
Говницооо
4,4(39 оценок)
Var a: integer; c: real; begin readln(a); if a> =0 then c: =sqrt(a) else c: = 1/a; write(c); end.

Популярно: Информатика