@Rizi3N: Pascala to ja z 5 lat temu w liceum miałem, ale nie powinieneś na końcu wywołać potrzeby wcisnięcia klawisza, tak żeby Ci się program automatycznie nie zamknął?
@Rizi3N: Daj readkey ale nie zapisuj wyniku. Program poczeka na reakcje użytkownika (naciśnięcie dowolnego klawisza) a potem się zakończy. Jak nie działa daj 2x readkey i powinno działać.
@MroczekBall3D: @DarkAlchemy: @Hipokryta: Teraz wziąłem się za to ponownie, ale nadal mam problem z tym iż wyświetla mi się "Suma twoich argumentów to 0". Szkoda tylko, że nic nie wpisywałem i nie mogę wpisać. Nie mam totalnego pojęcia dlaczego mi to nadal nie działa ( ͡°ʖ̯͡°)
Co mam źle, że program działa, ale gaśnie? :|
program zadanie1;
uses sysutils;
var
suma : Integer;
a : Integer;
begin
suma := 0;
for a := 1 to ParamCount do
suma := suma + StrToInt(ParamStr(a));
Writeln('Suma twoich argumentów to ', suma);
end.
Jak nie działa daj 2x readkey i powinno działać.
Program wygląda dobrze. Spróbuj testowo wydrukować ParamCount i każdy ParamStr.