Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / SUKA
.PAS program text;
Uses Crt,Kritin;
BEGIN
clrscr;
assign(f,'f.dat');
rewrite(f);
Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® зЁбҐ« ў ¬ ббЁўҐ');readln(n);
for i:=1 to n do begin
Write('‚ўҐ¤ЁвҐ ', i, '-© н«Ґ¬Ґв ¬ ббЁў : ');
readln(a[i]);
write(f,a[i]); end;
close(f);
files;
readln;
END.
Uses Crt,Kritin;
BEGIN
clrscr;
assign(f,'f.dat');
rewrite(f);
Writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® зЁбҐ« ў ¬ ббЁўҐ');readln(n);
for i:=1 to n do begin
Write('‚ўҐ¤ЁвҐ ', i, '-© н«Ґ¬Ґв ¬ ббЁў : ');
readln(a[i]);
write(f,a[i]); end;
close(f);
files;
readln;
END.