Записать в файл 10 цифр вводимых пользователем

Question

Информатика

Риммушка

12 октября, 18:01

Записать в файл 10 цифр вводимых пользователем

+3

Ответы (1)

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

Гемуля · Answer 1

Var s:string;

ar:array[1 ... 10] of integer;

f:text;

i:integer;

begin;

for i:=1 to 10 do

readln (ar[i]) ;

assign (f,'text. txt') ;

rewrite (f) ;

for i:=1 to 10 do

begin;

str (ar[i], s) ;

write (f, s,' ') ;

end;

close (f) ;

end.