Programmi Опции

[Ruslan]

Ludi pomogite pozalujsta!!! Napi6ite 3 programki o4en legkije.
1. Pods4itat summu 4isel ot n do m. n<m

2. Naiti summu 4isel ot n do m esli n=m i esli n>m

3. Pods4itat kol-vo bukv(f) vo vvedennoj stroke.

[volvo]

Guest
А что, For нас уже не устраивает? :D

1.

var m,n,i,s:integer;
begin
  readln(m,n);
  s:=0;
  for i:=n to m do s:=s+i;
  writeln('s=',s);
  readln;
end.