Ета пограмма просто считает сумму цифр., но мне надо создать файл txt заполнить его…

Question

35

Ета пограмма просто считает сумму цифр., но мне надо создать файл txt заполнить его цифрами, и чтоб програма открыла етот txt и Подсчитала суммуцифр,

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

uspeh-garant · Accepted Answer

92

uspeh-garant

05 февраля 2024

var a,n: integer; fl1,fl2: text; beginassign (fl1,'input.txt'); n: =0; reset (fl1); read (fl1,a); while a <> 0 do begin n: =n+a; read (fl1,a); end; close (fl1); write ('summa cifr=', n); end.

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

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

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

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