Question

Turbo Pascal

1. Napisz program, który policzy iloczyn 5 liczb za pomocą instrukcji while albo repeat.

2. Napisz program, który obliczy średnią 5 liczb z użyciem while albo repeat.

Błagam, pomóżcie! siedzę nad tymi zadaniami już od 2 godzin i mi nie wychodzi. :/

Answer 1

zad1

program sadas;
uses crt;
var a,x:real;
y:integer;
begin
clrscr;
x:=1;
y:=0;
repeat
begin
writeln('podaj liczbe');
readln(a);
x:=x*a;
y:=y+1;
end;
until y=5;
writeln('iloczyn wynosi ',x:2:2);
readln;
end.

 

zad2

program sasdsad;
uses crt;
var a,w:real;
y:integer;
begin
clrscr;
x:=0;
y:=0;
repeat
begin
writeln('podaj liczbe');
readln(a);
x:=x+a;
y:=y+1;
end;
until y=5;
w:=x/5;
writeln('srednia wynosi ',x:2:2);
readln;
end.

 

jak nie dzialaja to napisz i cos poradzimy... nie mam TP, wiec pisalem w notatniku i nie moge sprawdzic czy dzialaja