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

Question

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

Answer 1

68

serggoreliy

01 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: