Почему у меня не работает программа?

Program PR1;

Uses crt;

begin

clrscr;

assing (f,'Data') ;

rewrite (f) ;

for i:=1 to 10 do

begin

readln (a) ;

write (f, a) ;

end;

readln;

end.

Question

Информатика

Аполлинарка

17 октября, 08:13

Почему у меня не работает программа?

Program PR1;

Uses crt;

begin

clrscr;

assing (f,'Data') ;

rewrite (f) ;

for i:=1 to 10 do

begin

readln (a) ;

write (f, a) ;

end;

readln;

end.

+1

Ответы (1)

Знаете ответ на вопрос?

Лаврюня · Answer 1

Program PR1;

Uses crt;

var f:text;

a, i:longint;

begin

clrscr;

assign (f,'Data') ;

rewrite (f) ;

for i:=1 to 10 do

begin

readln (a) ;

write (f, a) ;

end;

close (f) ;

end.

и еще надо дописать разрешение файла Желательно

Почему у меня не работает программа?Program PR1;Uses crt;beginclrscr;assing (f,'Data') ;rewrite (f) ;for i:=1 to 10 dobeginreadln (a) ;write (f, a) ;end;readln;end.

Почему у меня не работает программа?

Program PR1;

Uses crt;

begin

clrscr;

assing (f,'Data') ;

rewrite (f) ;

for i:=1 to 10 do

begin

readln (a) ;

write (f, a) ;

end;

readln;

end.