Цикл: суммирование

@Lana_T · Регистрация: 26.05.2013

Author24 — интернет-сервис помощи студентам

Нужна программа в Паскале и блок-схема, пожалуйста) Ввести с клавиатуры последовательность чисел заканчивающуюся нулём , вывести сумму этих чисел.

@Doctor Nano · 26.05.2013, 13:15

Какая странная задача смысл трудно понять...
Толи просят числа оканчивающиеся на 0.

Кликните здесь для просмотра всего текста

Pascal

 Uses crt;
  var i,n,s,x:integer;
begin
 clrscr;
   readln(n);
   s:=0;
     for i:=1 to n do
         begin
           readln(x);
          if x mod 10=0 then
             s:=s+x;
         end;
   Writeln(s);
 readkey;
end.

Или последовательность чисел из которых последние число 0.

Кликните здесь для просмотра всего текста

Pascal

 Uses crt;
  var x,s:integer;
begin
 clrscr;
  s:=0;
   repeat
     ReadLn(x);
      s:=s+x;
   until x=0;
WriteLn(s);
end.

@DauMoH · 26.05.2013, 13:25

Pascal

program DauMoH;
 
type
  mas = array[1..1000] of integer;
 
var
  a: mas;
  i: byte;
  n, sum: integer;
 
begin
  repeat
    begin
      inc(i); 
      readln(a[i]); 
    end; 
  until a[i] = 0; 
  
  for n := 1 to i - 1 do
  begin
    if n <> i - 1  then
    begin
      write(a[n], '+');  
      sum := sum + a[n]; 
    end
    else 
    begin
      sum := sum + a[n]; 
      write(a[n], '=', sum);
    end; 
  end; 
end.

@Lana_T 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 23
		1
	Цикл: суммирование 26.05.2013, 12:48. Показов 1356. Ответов 2 Метки нет (Все метки) Нужна программа в Паскале и блок-схема, пожалуйста) Ввести с клавиатуры последовательность чисел заканчивающуюся нулём , вывести сумму этих чисел. 0

	26.05.2013, 13:25

Цикл: суммирование

Решение