ΟΛΗ Η ΥΛΗ_2016

Primary tabs

Page 1 of 20

Question 1

Να τροποποιήσετε τον κώδικα ώστε, να δίνει τα ίδια αποτελέσματα με τη
χρήση των εντολών for

 

athroisma: =0;
metritis :=0;
while metritis < 10 do
 begin
  athroisma:=athroisma + metritis;
  writeln(metritis:10,athroisma:10);
  metritis:= metritis + 1;
end;

 

program erwtisi;
var
athroisma,metritis: integer;
begin
athroisma:=0;
for metritis:=0 to 9 do
begin
   athroisma:=athroisma+metritis;
   writeln(metritis:10, athroisma:10);
end;
end.
 

program erwtisi;
var
athroisma,metritis: integer;
begin
athroisma:=0;
for metritis:=1 to 10 do
begin
   athroisma:=athroisma+metritis;
   writeln(metritis:10, athroisma:10);
end;
end.