Question

Napisz program który wyświetla liczby od 1 do 10 i je sumuje.Ma ona być w 3 rodzajach pentli

rodzaje pentli:

*repeat

*For

*while

W PROGRAMIE FREE PASCAL!!fast bo potrzebuje

Answer 1

// licze na naj...

 

 

//za pomocą petli repeat

 

program nazwa;
uses crt;
var
x,suma:integer;
begin
clrscr;

 

x:=0;
 suma:=0;

 

repeat
begin
x:=x+1;
write(x);
suma:=suma+x;
writeln;
writeln('Suma: ',suma);
end until (x=10);

 

readln;
end.

 

 

//za pomocą petli for

 

program nazwa;
uses crt;
var
x,suma:integer;
begin

clrscr;

suma:=0;

for x:= 1 to 10 do
begin
write(x);
suma:=suma+x;
writeln;
writeln('Suma: ',suma);
end;

 

readln;
end.

 

 

//za pomocą petli while

 

program nazwa;
uses crt;
var
x,suma:integer;
begin
clrscr;

 

 x:=0;
 suma:=0;

while (x<10) do
begin
x:=x+1;
write(x);
suma:=suma+x;
writeln;
writeln('Suma: ',suma);
end;

readln;
end.