Odpowiadasz na:

Re: Zadania w Pascalu

Zadanie 3
program iloczn1;
var
loczyn,ostatnia,i,ilosc,suma:integer;
begin
write('Podaj ilosc liczb do wczytania: ');
readln(ilosc);
iloczyn:=1;
... rozwiń

Zadanie 3
program iloczn1;
var
loczyn,ostatnia,i,ilosc,suma:integer;
begin
write('Podaj ilosc liczb do wczytania: ');
readln(ilosc);
iloczyn:=1;
ostatnia:=1;
suma:=0
for i:=1 to ilosc do
begin
write(' Podaj kolejna liczbe: ');
readln(ostatnia);
iloczyn:=iloczyn*ostatnia;
suma:=suma+ostatnia;
end;
writeln('iloczyn wczytanych liczb wynosi', iloczyn);
writeln;
writeln('suma podanych liczb wynosi: ',suma);
writeln(' wcisnij ');
readln;
end.

To też powinno działać
Jakznajdę chwilę czasu to spojrzę na ten pierwszy program, ale w zamian mam prośbę pomóż mi znaleźć odpowiedzi do kursu fundamentals of unix!!
To jest dla mnie bardzo ważne