Напишите программу для вычеркивания в слове всех букв, стоящих на нечетных местах после буквы а

@pro_100_den · Регистрация: 17.10.2011

@Gxost · 25.10.2011, 15:49

Pascal

USES crt;
var
s:string;
i:integer;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]='а') and ((i+1)mod 2<>0) then delete(s,i+1,1);
writeln(s)
end.

@pro_100_den · 25.10.2011, 15:51 **[ТС]**

а вы не могли бы объяснить зачем нужно писать USES crt;

@pro_100_den 23 / 23 / 2 Регистрация: 17.10.2011 Сообщений: 173
		1
	Напишите программу для вычеркивания в слове всех букв, стоящих на нечетных местах после буквы а 25.10.2011, 14:35. Показов 1518. Ответов 2 Метки нет (Все метки) Напишите программу для вычеркивания в слове всех букв, стоящих на нечетных местах после буквы а 0

@pro_100_den 23 / 23 / 2 Регистрация: 17.10.2011 Сообщений: 173
	25.10.2011, 15:51 [ТС]	3
	а вы не могли бы объяснить зачем нужно писать USES crt; 0

Решение