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.