Автор: Юля 4.05.2007 16:44
Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 0
Автор: sonic 4.05.2007 17:36
Готов сделать, отпиши мне в пм координаты для связи
Автор: Tan 4.05.2007 18:03
Юля, если речь идёт не о большой арифметике и сумма влезает в тип longint пиши в приват помогу бесплатно.
Автор: Cтранник 26.01.2008 22:01
Цитата(Юля @ 4.05.2007 12:44)
Найти сумму всех чисел, вводимых с клавиатуры.Программа заканчивает своё выполнение и выводит результат при вводе 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.
Автор: О_Джей_Симпсон 29.01.2008 22:07
вы вовремя))
на дату посмотрите.