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

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

Информатика

Капитон

14 июня, 07:09

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

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.

+2

Ответы (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.