evgenijpetrov
06.01.2023 09:00

Хелп ! создать программу, в среде pascalabc, которая будет брать числа из файла "input.txt", суммировать их, и помещать в файл "output.txt".(количество чисел заранее не известно). вот наработка, исправьте где надо, там какая-то ошибка¯\_(ツ)_/¯ var x, s, q: longint; t: text; begin assign(t,'input.txt'); reset(t); s: =0; while not eof(t) do begin read(t,x); s: =s+x; end; close(t); assign (t,'output.txt'); rewrite(t); write(t,'вот сумма числел из файла input.txt: ', x); close(t); end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
isanatoliy25199
09.10.2020 02:14

var x, S: longint; t:text;

begin

assign(t,'input.txt');

reset(t);

S:=0;

while not Eof(t) do

begin

read(t,x);

S:=S+x;

end;

close(t);

assign (t,'output.txt');

rewrite(t);

write(t,'Вот сумма числел из файла input.txt: ', S);

close(t);

End.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота