PASCAL!;] napisz progrm zliczajacy wprowadzane liczby ujemn i nieujemne wsród n liczb wprowadzanych z klawiatury. zdefiniuj procedure zliczaj z jednym parametrem ktora bedzie zliczac liczby.
grubson93
Program zliczanie; uses crt; var wynik,i : longint;{dla całkowitych dla rzeczywistych real} opcja: string;
procedure zliczaj(liczba:longint); {bądź real dla rzeczywistych} begin wynik:= wynik+liczba; end;
begin clrscr; Repeat write('Podaj liczbę: '); readln(i); zliczaj(i); write('czy chcesz powtórzyć?(T/N): '); readln(opcja); Until (opcja=n) or (opcja=N); end.
uses crt;
var
wynik,i : longint;{dla całkowitych dla rzeczywistych real}
opcja: string;
procedure zliczaj(liczba:longint); {bądź real dla rzeczywistych}
begin
wynik:= wynik+liczba;
end;
begin
clrscr;
Repeat
write('Podaj liczbę: ');
readln(i);
zliczaj(i);
write('czy chcesz powtórzyć?(T/N): ');
readln(opcja);
Until (opcja=n) or (opcja=N);
end.