Зимняя сессия на заочном факультете. Пара по алгоритмам программирования. Препод ушла на совещание, оставив меня за старшего.
Пишем прогу на Object Pascal в среде Delphi 7. Одногруппник подзывает меня со словами, что у него не работает прога. Мол, по-английски не шпрехаю, глянь сам.
begin
var i, z:integer;
begin
forI:=0to5do
forJ:=0to5do
begin
z:=z+SrnToLnr(StreengGrid1.Ceiis[I,J]),
end;
end.
end;
У меня глаз чуть не выпал от такого «кода».