Алгоритм

[Vitaliy97]

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

[Dvoishnik]

для Pasсal Так

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

[Вадим Мошев]

ОФФТОП:
Dvoishnik

для Paskal Так

Правильно пишется Pascal

[Dvoishnik]

Сообщение от Вадим Мошев

ОФФТОП:
Dvoishnik

Правильно пишется Pascal

пощадите с кем не бувает очепятался

[rrrFer]

sum(Sum):-
  readint(Value), NOT(Value = 0), !,
  sum(TailSum), Sum = TailSum + Value;
  Sum = 0.

На Turbo Prolog.