Question

Daje najlepsze pierwszej lub drugiej osobie która odpowie.

Z pętli REPEAT zmień program na pętle WHILE.

Program poniżej

program repeatarytmetyczna;

var

a,r,liczbnik:integer;

begin

Writeln('oto 7 wyrazów ciągu arytmetycznego a=10 i r=2 ');

a:=10;

r:=-2;

licznik:=7;

REPEAT

write(a,' ');

a:=a+r;

licznik:=licznik-1;

UNTIL licznik = 0;

writeln;

writeln('20 wyraz ciągu to ',10+19*r ' );

readln;

end.

Answer 1

var

a,r,liczbnik:integer;

begin

Writeln('oto 7 wyrazów ciągu arytmetycznego a=10 i r=2 ');

a:=10;

r:=-2;

licznik:=7;

while (licznik!=0) do

begin

write(a,' ');

a:=a+r;

licznik:=licznik-1;

end;

writeln;

writeln('20 wyraz ciągu to ',10+19*r ' );

readln;

end.