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.

[Гость_klem4]

1)

Код

program summa_forum;
uses crt;
var m,n,i:integer;
   s:integer;
Begin
  readln(m,n);
  s:=0;
  i:=m;
  while i<=n do
   begin
    s:=s+i;
    inc(i);
   end;
   writeln('s=',s);
   readln;
end.

[Guest]

тока перепутал, здесь от м до н
правильно вот так:

Код

...
i:=n;
while i<=m
...

[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.