Алгоритм на Pascal

Posted by obzor under Delphi

Записать алгоритм, считывающий и суммирующий вводимые с клавиатуры числа до тех пор, пока не будет введён ноль.

Dvoishnik
Для Pascal так:

var a,sum:integer; //объявляем 2 переменные (а для ввода и проверки) (sum суммирования)
begin //начало тела программы
  sum:=0; // обнуляем переменную для суммирования
  repeat // цикл с пост условием начало
    Write('Wwedite chiclo: '); // просим ввести число
    read(a); //вводим число
    sum:=sum+a; // суммируем с уже имеющейся суммой
  until a = 0 ; // цикл прекратиться когда а станет равна ную 
  Writeln(' Summa =',sum ); // выводим сумму
end. //конец

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)