Нахождение суммы всех нечётных чисел от 0 до 50

Категория: Delphi/Pascal

2012-02-07 23:07:13

code: #java

program p1;
var i,sum:integer;
 
begin
sum:=0;
 
for i:=0 to 50 do
if odd(i) then
sum:=sum+i;
 
writeln('Summa= ',sum);
 
readln;
end.

Поделиться:

Sample Code