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

Question

35

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

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

ответить

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

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

uspeh-garant · Accepted Answer

92

uspeh-garant

31 марта 2023

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:
Пароль: