Задание:
Дана непустая последовательность натуральных чисел, за которой следует 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.
Знаете другой ответ?