pascalabcnet/InstallerSamples/!Tutorial/06_ForWhileRepeat/For4.pas

// Цикл for. Сумма всех двузначных чисел

begin
  var s := 0;
  for var i:=10 to 99 do
    s += i; 
  Println('Сумма всех двузначных чисел =',s);  
end.
-												fix #1395

											
										
										
											2018-10-23 22:06:07 +03:00
+								// Цикл for. Сумма всех двузначных чисел
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
 								begin
-												fix #1395

											
										
										
											2018-10-23 22:06:07 +03:00
+								  var s := 0;
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								  for var i:=10 to 99 do
-												fix #1395

											
										
										
											2018-10-23 22:06:07 +03:00
+								    s += i;
 								  Println('Сумма всех двузначных чисел =',s);
-												initial commit

											
										
										
											2015-05-14 22:35:07 +03:00
+								end.