Var s,t: string;
i: integer;
begin
writeln ('Введите строку: ');
readln (s);
t:='';
for i:=1 to length(s) do
if s[i]='а' then t:=t+s[i]+s[i] else t:=t+s[i];
writeln (t);
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите,пожалуйстаа!! В программе Geany с помощью PascalЗадача 1.Определить четность/нечетность числа, введённого пользователем

corvette

Var a,b,c:longint;
Begin
read(a,b,c);
if c mod 2=1 then
writeln('Нечетное') else
writeln('Четное');
if ((c>=a) and (c<=b)) then
writeln('YES') else
writeln('NO');
<span>End.</span>

0 0

4 года назад

Придумать 20 предложений на любую тему! СРОЧНО НАДО НА ЗАВТРА!!!!

Neska [55]

Какие предложения,простые,сложные,распространенные и т.д?

0 0

4 года назад

Решите в Python Четное или нечетное Задано натуральное число n. Определить его четность. Входные данные Одно натуральное число n

Артемчик9797 [11]

def number(n):

if 1<=n<=101:

if n%2==0:

print("EVEN")

else:

print("ODD")

else:

print(False)

number(10)

number(5)

number(1010)

0 0

4 года назад