Решите,пожалуйста,одну заачу на Pascalе, Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает св Опции

[Юля]

Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

[sonic]

Готов сделать, отпиши мне в пм координаты для связи

[Tan]

Юля, если речь идёт не о большой арифметике и сумма влезает в тип longint пиши в приват помогу бесплатно.

Сообщение отредактировано: Tan - 4.05.2007 18:03

[Cтранник]

Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0

Вот ответ на твой вопросс

[code]uses crt;
var a,summa: integer;
begin
writeln('Vvedi shisla');
summa:=0;
repeat
readln(a);
summa:=summa+a;
until a=0;
writeln(summa);
readln;
end.

[О_Джей_Симпсон]

вы вовремя))
на дату посмотрите.