Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / M
.PAS unit m;
interface
Procedure mudak;
var
f:file of real;
a:array[1..30] of real;
i,n:integer;
b:boolean;
Implementation
Procedure mudak;
var
c:array[1..30] of integer;
begin
reset(f);
writeln('€бе®¤л© ¬ ббЁў:');
while not eof(f) do
begin
b:=true;
read(f, a[i]);
Writeln(a[i]:3:0);
end;
close(f);
writeln('ЏаҐ®Ўа §®ў л© ¬ ббЁў:');
reset(f);
b:=true;
while not eof(f) do
begin
read(f, a[i]);
if a[i]<0
then begin
write(a[i]:3:0);
b:=false;
end;
end;
if b=true then
write(' ЋваЁж ⥫мле н«Ґ¬Ґв®ў ў ¬ ббЁўҐ Ґв!');
close(f);
writeln;
end;
end.
interface
Procedure mudak;
var
f:file of real;
a:array[1..30] of real;
i,n:integer;
b:boolean;
Implementation
Procedure mudak;
var
c:array[1..30] of integer;
begin
reset(f);
writeln('€бе®¤л© ¬ ббЁў:');
while not eof(f) do
begin
b:=true;
read(f, a[i]);
Writeln(a[i]:3:0);
end;
close(f);
writeln('ЏаҐ®Ўа §®ў л© ¬ ббЁў:');
reset(f);
b:=true;
while not eof(f) do
begin
read(f, a[i]);
if a[i]<0
then begin
write(a[i]:3:0);
b:=false;
end;
end;
if b=true then
write(' ЋваЁж ⥫мле н«Ґ¬Ґв®ў ў ¬ ббЁўҐ Ґв!');
close(f);
writeln;
end;
end.
Соседние файлы в папке Alex