Помощь - Поиск - Пользователи - Календарь
Полная версия: Programmi
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.