Voker57
- @Stiletto: *идиоты *пиздец *быдлокодинг *копипастасхоронил удаленное #497461:
ящитаю это достойно схоронения. комментарии схоронить не смог — страницу перезагрузил, а оно удалено уже.
@sj:
Жуйк, пожалуйста, ткни мне пальцем в ошибку!
program ariph;
uses SysUtils;
function ariph(a,b: array of Integer):
var a: Integer;
var b: Integer;
begin
x:=0;
y:=0;
WriteLn x+y
x:=x+1;
if x+y/n : Integer then begin
WriteLn 0
end
while x<n do
goto 11
end
else if x=n begin
writeln
x:=0;
y:=y+1;
goto 11
end
else if y:=n end;
end
#497461 juick.com19 months ago; 123 replies