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

Задача 27.

Использование цикла repeat для подсчета суммы вводимых чисел до первого отрицательного числа

Program Summer1;
  var
      sum, a: real;    {sum - для накопления суммы, a - для очередного числа}
begin
  sum:=0; {Обнуляем сумму}
  a:=0;
  repeat
    sum:=sum+a; {Добавляем введенное число к сумме}
    write('Введите число'); {Ввод очередного числа}
    readln(a)
  until a < 0 {Проверяем введенное число на отрицательность}
{При выходе из цикла выполняется этот оператор:}
  writeln ('',sum:5:3);
  readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru