PASCAL:
program zadanie;
var
x: byte;
suma: integer;
begin
suma:=0;
for x:=1 to 100 do
suma:=suma+x;
if (suma>100) then
break else
write(x,';');
end;
end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
PASCAL:
program zadanie;
var
x: byte;
suma: integer;
begin
suma:=0;
for x:=1 to 100 do
begin
suma:=suma+x;
if (suma>100) then
break else
write(x,';');
end;
end.