- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
Program upra;
var s:string;
i:integer;
begin
writeln ('vvesti stroku');
readln(s);
k:=0;
for i:=1 to length(s) do
if s='a' then
s:='*';
writeln(k);
end
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
Program upra;
var s:string;
i:integer;
begin
writeln ('vvesti stroku');
readln(s);
k:=0;
for i:=1 to length(s) do
if s='a' then
s:='*';
writeln(k);
end
Pascal. Меняем символ "а" на звёздочку. Школота детектед!
ZLOvar 13.10.2010 20:43 # −1
sectus 14.10.2010 06:12 # 0
fey 13.10.2010 21:07 # +1
Зачем постить сюда лабы осваивающих программирование студентов.
KirAmp 13.10.2010 21:15 # 0
fey 13.10.2010 21:31 # 0
Говнокод должен вдохновлять программистов на написание красивого и четкого кода,
зачем здесь эти лабы )
Lure Of Chaos 13.10.2010 21:30 # −1
Program ispra;
Анонимус 13.10.2010 21:57 # 0