ТутРешу.Ру

Дана непустая последовательность натуральных чисел…

Задание:

Дана непустая последовательность натуральных чисел, за которой следует 0. Составьте программу нахождения суммы чисел этойпоследовательности. Запустите программу на выполнение… (ПО ПАСКАЛЮ…)

Решение:

program P1; usescrt; varmas: array[1… 100] of integer; i,ms,summ: integer; beginclrscr; writeln ('Vvod massiva: '); ms: =1; repeat read (mas[ms]); inc (ms); until mas[ms-1]=0; summ: =0; for i: =1 to ms-1 do summ: =summ+mas[i]; writeln ('Resultat: ',summ); readln; readln; end.




Знаете другой ответ?

Отправить свой ответ