Работа с числами в Паскале. Суммы чисел и их кратность

Среди толпы я одинок

1)Программа для суммы чисел на отрезке на отрезке [50;60] на языке Паскаль

2)Программа для вычисления количества чисел кратных 6 на отрезке [200;400] на языке Паскаль

1) Сумма всех целых чисел на отрезке [50; 60]:

Var i,s:integer; 
Begin 
s:=0; 
for i:=50 to 60 do 
s:=s+i; 
Writeln('Сумма=',s); 
End.

2) Количество чисел кратных 6 на отрезке [200; 400]:

Var i,k:integer; 
Begin 
k:=0; 
for i:=200 to 400 do 
if i mod 6=0 then k:=k+1; 
Writeln('Количество=',k); 
End.

Или можно решить данную задачу вторым способом:

Var i,k:integer; 
Begin 
k:=0; 
i:=204; 
While i<=400 do 
begin 
k:=k+1; 
i:=i+6; 
end; 
Writeln('Количество=',k); 
End.

Rate this item