Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 17.

Вычисление суммы чисел от 6 до 10

Program Test4:
  var
      N: integer;     { Это будет счетчик цикла for }
      S: integer;     { В этой переменной будем накапливать сумму }
begin
  S:=0;     { Вначале обнулим сумматор }
  for N:=6 to 10 do
  S:=S + N;     {Эта строка - тело цикла. При его выполнении каждый раз к S прибавляется очередное N. Переменную S можно сравнить с аккумулятором, в котором накапливается сумма }
  writeln('Сумма чисел=', S:6);
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100