Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SUKA
.PAS Program idiot;
uses crt, m;
var
f:file of real;
a:array[1..30] of real;
i,n:integer;
b:boolean;
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);
readln;
mudak;
readln
END.
uses crt, m;
var
f:file of real;
a:array[1..30] of real;
i,n:integer;
b:boolean;
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);
readln;
mudak;
readln
END.
Соседние файлы в папке Alex