Question

Daje najlepsze pierwszej lub drugiej osobie która odpowie.

Używając pętli REPEAT losuj,wyświetlaj i mnóż losowe liczby z zakresu od 1-20 tak dlugo aż ich suma przekroczy 1000.Podaj liczbęliczb wylosowanych i sumę.

Przekształać z tego przykładu.Pozmieniaj dane.

program repsum200;

var

los,suma,liczbaliczb:byte;

begin RANDOMIZE; Writeln('oto liczby ktorych suma przekracza 200');

suma:=0;

liczbaliczb:=0;

Repeat

los:=Random(20)+1;

write(los:3);

suma:=suma+los;

INC(liczbaliczb);

UNTIL suma>200 ;

Writeln('suma ',suma,' wylosowano ',liczbaliczb,' liczb');

readln;

end.

Answer 1

Program iloraz200;

Var losowana,ilosc:byte;
    wynik:integer;

Begin
 wynik:=1;
 ilosc:=0;
 Randomize;
 WriteLn;
 WriteLn('O to liczby, ktore zostaly wylosowane: ');
 Repeat
  losowana:=Random(20)+1;
  wynik:=wynik*losowana;
  inc(ilosc);
  Write(losowana,' ');
 Until wynik>1000;
 WriteLn;
 WriteLn('Iloraz tych liczb wynosi: ',wynik,'. Wylosowano ',ilosc,' liczb.');
 ReadLn;
End.