Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи на заказ _ Решите,пожалуйста,одну заачу на Pascalе

Автор: Юля 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

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