Задать вопрос
24 июля, 16:34

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

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.

+3
Ответы (1)
  1. 24 июля, 17:02
    0
    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; begin clrscr; assing (f,'Data') ; rewrite (f) ; for i:=1 to 10 do begin readln ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы